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Perché non ti abboni? 

pensaci! 



EDITORIALE 



a mentre vanno prendendo 
IVI corpo nuove iniziative 
editoriali per rendere LIST 
sempre più bella ed interes¬ 
sante, i lettori continuano a 
farci pervenire in redazione 
giudizi sostanzialmente posi¬ 
tivi sui contenuti e su II'impo¬ 
stazione della rivista. 

Ma, come è naturale che 
accada, c'è anche chi vor¬ 
rebbe che LIST fosse model¬ 
lata a proprio uso e consu¬ 
mo: allora si chiede che ven¬ 
gano pubblicati più listati, 
che nella scelta dei program¬ 
mi si privilegi questo o quel 
tipo di computer, che trovi 
giusto spazio qualche model¬ 
lo fino ad ora trascurato. 

Tutte esigenze personal¬ 
mente legittime e che LIST 
fin da questo numero cer¬ 
cherà di non deludere. 

Va però aggiunto che pro¬ 
prio nell'interesse degli ami¬ 
ci lettori, la redazione, nella 
scelta e nel dosaggio dei li¬ 
stati da pubblicare, non può 
non tener conto delle indica¬ 
zioni del mercato relative al¬ 
la diffusione dei diversi mo¬ 
delli di computer. 

Tuttavia poiché LIST ha a 
cuore in ugual misura tutti i 
lettori e, in particolare, per 
accontentare i non pochi 
possessori del Texas che ci 
hanno scritto, come l'amico 
Silvio Crepaldi di Milano, in 
questo numero è stato dato 
ampio spazio ai programmi 
per il TI-99/4A. 

Spieghiamo subito che 
non si tratta di un'iniziativa 
estemporanea e che anche 
in seguito in ogni numero di 
LIST verranno pubblicati li¬ 
stati per il Texas, cosi che i 
possessori di questo modello 
non avranno più il sospetto, 
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LIST 
e i suoi 
lettori 


come amaramente ci hanno 
scritto, di aver buttato i soldi 
dalla finestra! 

E non è tutto. 

Come i lettori ormai san¬ 
no, oltre che divertire, LIST 
intende favorire un rapporto 
intelligente ed attivo con il 
* computer. 

Proprio con questo spirito 
e soprattutto per mettere in 
condizione i giovani studenti 
di utilizzare il computer co¬ 
me valido sussidio scolastico 
è nata la rubrica "Scuola e 
computer” a cura di Duccio 
Alfano e che siamo certi in¬ 
contrerà favorevole accogli¬ 
mento presso i genitori, pro¬ 
fessori ed alunni. 

Detto delle lodi ed in atte¬ 
sa delle prime reazioni alla 


nuova rubrica, onestà pro¬ 
fessionale vuole che si parli 
delle critiche pervenute in re¬ 
dazione, relative, per lo più, 
ad una caratteristica della ri¬ 
vista che invece per noi è 
qualificante: quella di essere 
scritta con un linguaggio 
semplice o, addirittura, ele¬ 
mentare. 

Non vorremmo ripeterci, 
ma poiché in Italia non si è 
ancora formata, come è già 
accaduto in altri paesi tipo la 
Gran Bretagna il Giappone e 
gli USA, una solida cultura 
dell'informatica, riteniamo 
più utile che la gente capisca 
quello che legge piuttosto 
che accada il contrario. 

L'importante è che ciò 
non avvenga a danno della ri¬ 
gorosità scientifica degli ar¬ 
gomenti trattati. 

Chi è già esperto della ma¬ 
teria ha altre pubblicazioni 
verso le quali indirizzare i 
suoi interessi; chi, poi, va in 
edicola e fa certe scelte solo 
per atteggiamento snobisti¬ 
co senza preoccuparsi se le 
riviste acquistate gli torne¬ 
ranno veramente utili, non 
sembra persona abilitata ad 
esprimere giudizi. 

Delle critiche di costoro, 
List non si preoccupa più di 
tanto; la rivista si rivolge, in¬ 
vece, ai lettori che con 
umiltà e, aggiungiamo noi, 
con intelligenza, vogliono 
davvero imparare ad usare 
correttamente il computer. 

Pertanto, le numerose at¬ 
testazioni di stima e di sim¬ 
patia da parte di questi ulti¬ 
mi, confermano che la stra¬ 
da imboccata da LIST è dav¬ 
vero quella giusta. 

Giovanni Maria Pollicela 
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LIST POSTA 


Il TEXAS TI 99/4A 

Nei giorni scorsi ho comprato LI¬ 
ST nella speranza di trovarvi qual¬ 
che programma per il personal della 
Texas come annunciato sulla co¬ 
pertina, ma con mio grande disap¬ 
punto ho dovuto constatare che sul¬ 
la rivista non è stato pubblicato 
nemmeno un listato per il mio 
TI-99/4A. 

Come mai è stata commessa una 
topica cosi macroscopica? Voglio 
invece sperare che fin dal prossimo 
numero LIST provveda a pubblicare 
i programmi promessi perché sono 
piombato nella “disperazione” più 
nera. Sfortunatamente lo scorso 
Natale mi sono fatto convicere ad 
acquistare il TI-99/4a la cui produ¬ 
zione è stata interrotta poco dopo 
dalla Texas, lasciando tutti gli ac¬ 
quirenti dell’home computer in que¬ 
stione con il fondato sospetto di es¬ 
sere stati presi per il ...naso! 

È la prima volta che compro LIST ed 
a parte l’inconveniente cui ho fatto 
cenno l’ho trovata divertente ed in¬ 
teressante. Se mi darete una mano 
ad usare il mio Home computer vi 
leggerò sempre con simpatia e non 
è detto che non mi decida ad abbo¬ 
narmi 

Silvio Crepaldi 
Milano 

Per un refuso tipografico verificatosi 
sulla copertina del n. 2 di LIST il sig. 
Crepaldi ha creduto di trovare i listati 
adatti al suo personal. 

L'inconveniente si è verificato per 
distrazione in quanto la sigla del Texas 
era già comparsa sulla copertina del 
primo numero di List sul quale era sta¬ 
to pubblicato un listato per il TI-99/4A. 

Ad ogni buon conto, come dice il 
proverbio, non tutti i mali vengon per 
nuocere. La svista ha permesso al let¬ 
tore di conoscere LIST che fin da que¬ 
sto numero dedicherà regolarmente 
almeno tre programmi al TI-99/4A. 

A parziale rimborso delle 5.000 lire 
erroneamente spese (ma il lettore 
vedrà che non è cosi) per il numero 2 
di LIST inviamo in omaggio al sig. Cre¬ 
paldi il primo numero della rivista sul 
quale troverà un programma per il suo 
home computer. Chiarito l'equivoco e 
dopo esserci scusati per l'inconve¬ 
niente ricordiamo al lettore di mante¬ 
nere la promessa di sottoscrivere l'ab¬ 
bonamento e di parlar bene di LIST 
con gli amici. 

Vie 20 e spectrum 

Sotto la spinta di alcuni amici 
che mi hanno preceduto, ho acqui¬ 



stato un computer, il VIC 20 della 
Commodore. 

Sono abbastanza soddisfatto, ma 
frequentando un mio amico, pos¬ 
sessore dello Spectrum ho notato 
che le capacità di quest’ultimo so¬ 
no maggiori, specialmente per ciò 
che riguarda la memoria e molte 
istruzioni, che non sono comprese 
sul mio computer. 

In particolar modo mi dispiace che 
non ci siano le istruzione per la vi¬ 
sione dei grafici in “alta risoluzio¬ 
ne”, mi pare si dica cosi. 

Mi hanno detto che è possibile 
aggiungerle, come? 

Complimenti per la Vostra rivista e 
auguri 

Distinti saluti 

Vincenzo Siciliano 
Belvedere Marittimo (CS) 

Dal tono della lettera ci sembra di ca¬ 
pire che al momento dell'acquisto, le 
idee del lettore non erano molto chia¬ 
re. 

L'esperienza ci insegna che la scel¬ 
ta dell'home computer dovrebbe esse¬ 
re dettata soprattutto da motivi pratici 
e cioè dal tipo di applicazioni previste 
per il computer. 

In ogni caso il lettore non si preoc¬ 
cupi, è possibile usare le istruzioni per 
l'alta risoluzione (il termine è esatto) 
anche sul suo Vie 20. 

Sono due i modi di risolvere il pro¬ 
blema: 

A) comprando la "Super- 
Expander", una cartuccia che inserita 
nella parte posteriore del suo compu¬ 
ter aggiunge le istruzioni tipiche del 
caso (PLOT, CIRCLE, DRAW, ecc) ed 
aggiunge anche 3Kbytes alla memoria 
del Vie; 

B) modificando la gestione dello 
schermo attraverso un adatto pro- 
grammma. Quest'ultima soluzione è 
piu complicata e presenta alcuni in¬ 
convenienti, ma soddisfa egregiamen¬ 
te richieste non eccessive. 



Il problema maggiore è l'impossibi¬ 
lità di mostrare contemporaneamente 
sullo schermo grafici ed il modo testo 
normale. 

Volendo spiegare molto brevemen¬ 
te come si fa, va detto che bisogna ri¬ 
versare nella memora RAM (Random 
Access Memory) uno spazio che le 
permetta la gestione di una seconda 
pagina di scherno funzionante in alta 
risoluzione. Il Vie gestisce lo schermo 
come una matrice di 22colonne x 23 
righe, corrispondenti a 505 caratteri. 

Lo Spectrum ha invece, una gestio¬ 
ne diversa: 

25 righe X 30 colonne nel modo testo 
e ben 240 x 200 punti in alta risolu¬ 
zione. 

Con l'accorgimento di cui ho parla¬ 
to è possibile creare sul VIC una "fine¬ 
stra", è questo il termine usato, di 127 
x 127 punti. 

E ciò sfruttando i 3,5 KBytes di me¬ 
moria della versione base in cui è ven¬ 
duto il VIC. 

Non è tutto: attraverso adatte istru¬ 
zioni è possibile simulare anche la fun¬ 
zione PRINT AT (X, Y), tipica dello 
Spectrum e di molti altri computer. 

Riguardo a quello che sembra sia 
l'altro maggior problema, cioè la scar¬ 
sa memoria disponibile, ricordiamo 
che esistono sul mercato le cartucce 
di espansione, che possono espande¬ 
re la memora del Vie fino a 32 KBytes, 
se opportunatamente combinate, ma¬ 
gari con la mother board pubblicata 
proprio sul primo numero di LIST. 


Programmi e relativi 
linguaggi 

Ho letto per caso una copia della 
Vostra rivista a casa di amici e mi 
ha favorevolmente impressionato 
per l’esposizione sintetica e final¬ 
mente semplice delle rubriche pre¬ 
sentate. 

In particolar modo ho apprezzato 
l’impostazione scolastica della ru¬ 
brica intitolata “Dentro il compu¬ 
ter”. 

Sono un profano, e ammiro le rivi¬ 
ste come la Vostra, che permettono 
a sprovveduti come me, di avvici¬ 
narsi senza traumi al mondo dei 
computer. 

Da tempo accarezzo l’idea di 
comprare un computer, non solo 
per ragioni di lavoro ma anche 
perché lo considero un ottimo aiuto 
nelle diverse gestioni come ad 
esempio quella della propria casa. 
Ancora non ho preso una decisione, 
perché ho alcune perplessità, in 
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Le disequazioni 
di II grado 


stenibile) e dalla estrema ve¬ 
locità con cui si ottengono i 
risultati. 

L’importante è riuscire a fa¬ 
re alla macchina quello che 
noi vogliamo e non, come 
spesso accade, il contrario. 


a cura di Duccio Alfano 


Il calcolatore sta interrom¬ 
pendo in una scuola del tutto 
impreparata e che è stata col¬ 
ta, per cosi dire, di sorpresa, 
non soltanto dal punto di vi¬ 
sta delle strutture ma anche e 
soprattutto sotto l’aspetto 
culturale. 

In particolare l’insegna¬ 
mento della matematica, ma¬ 
teria ritenuta dai più sempre 
uguale a sé stessa, risente vi¬ 
stosamente della sempre 
maggiore separazione tra i 
contenuti, le cui caratteristi¬ 
che generali sono rimaste so¬ 
stanzialmente immutate da 
più di un secolo (legge Casa¬ 
ti, regio decreto del 1859) e i 
metodi risolutivi dei proble¬ 
mi, che la moderna tecnolo¬ 
gia sta sottraendo al moopo- 
lio di una ristretta classe di 
specialisti. 

In questa situazione si cor¬ 
re il rischio di ripudiare come 
scarsamente culturale l’uso 
di efficienti strumenti di cal¬ 
colo numerico o, vicerversa, 
di ritenere inutile e soprassa- 
to lo studio teorico attento e 
approfondito. 

In realtà, per quanto possa 


sembrare strano, si dimenti¬ 
ca a volte, specie da parte di 
chi non lo conosce abbastan¬ 
za, che il calcolatore è una 
macchina e, in quanto tale, 
non è né “buono” né “catti¬ 
vo”, ma può essere utile, inu¬ 
tile o addirittura dannoso a 
seconda che chi ne dispone 
ne faccia un uso più o meno 
appropriato e consapevole. 

Per riuscire ad imporsi alla 
macchina non basta cono¬ 
scere il linguaggio, ma occor¬ 
re, necessariamente, cono¬ 
scere fino in fondo e nella so¬ 
stanza, oltre che nella forma, 
il, problema che si vuole af¬ 
frontare. 

Nella compilazione di un 
programma, per quanto sem¬ 
plice, non si può barare (co¬ 
me a volte può riuscire in 
un’interrogazione o in un 
compito in classe), per cui si 
è costretti ad un esercizio di 
logica notevolissimo (e non 
sempre facile). 

In compenso, lo sforzo fat¬ 
to verrà premiato dall’elimina¬ 
zione della noiosa ripetitività 
dei calcoli (il cui contenuto 
culturale è difficilmente so- 


Disequazioni di secon¬ 
do grado 

Come esempio di quanto 
sopra detto consideriamo il 
problema di risolvere una di¬ 
sequazione di secondo gra¬ 
do. Dal punto di vista del cal¬ 
colatore il problema è abba¬ 
stanza diverso (e più com¬ 
plesso) da quello di una solu¬ 
zione di un’equazione di se¬ 
condo grado e siamo costret¬ 
ti, per poterlo affrontare, a 
comprenderlo bene da un 
punto di vista teorico: per la 
soluzione dell’equazione noi 
cerchiamo dei valori numerici 
che, sostituiti al simbolo (X) 
con cui si è indicata la varia¬ 
bile, facciano diventare ugua¬ 
le a zero (che è un numero) 
tutta l’espressione. 

Le soluzioni della disequa¬ 
zione (quando ci sono) non 
sono dei numeri, bensì degli 
intervalli di valori X individua¬ 
ti da numeri che ne fissano i 
valori estremi. 

Il segno dell’espressione 
A X 2 + B X + C (la dimostrazio¬ 
ne la si trova su un qualunque 
libro di algebra) dipende so¬ 
stanzialmente dal segno del 
coefficiente di secondo gra¬ 
do (A) e dal segno del discri¬ 
minante dell’espressione 
(DELTA = B 2 -4AC), secondo 
lo schema n. 1 
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SCHEMA N1 

DELTA 

A 


ax 2 +bx+c 

<0 

<0 

<0 

per ogni valore di X 



>0 

per nessun valore di X 



= 0 

per nessun valore di X 


>0 

>0 

per ogni valore di X 



<0 

per nessun valore di X 



= 0 

per nessun valore di X 

DELTA 

A 


ax 2 +bx+c 

>0 

<0 

<0 

per X<X1 e X>X2 



>0 

per XI <X< 



= 0 

per X = XI e X = X2 


>0 

>0 

per X<X1 e X>X2 



<0 

per XI <X<X2 



= 0 

per X = X1 X = X2 

= 0 

<0 

<0 

per ogni valore di X escluso 

X = -B/2A 


>0 

>0 

per ogni valore di X escluso 

X = -B/2A 



<0 

mai 



= 0 

per X = - B/2A 



(XI e X2 sono le soluzioni, se 
esistono, dell’equazione 
AX 2 + BX + C) 

Il quadro può sembrare 
complesso, ma osservandolo 
con un poco di attenzione di 
può sintetizzare notevolmen¬ 
te, concludendo che: 
se DELTAcO il segno di 
AX 2 + BX + Cè sempre ugua¬ 
le al segno di A, senza ecce¬ 
zioni; 

se DELTA = 0 il segno di 
AX 2 + BX + Cè sempre ugua¬ 
le al segno di A, tranne quan¬ 
do X= -B/2A (soluzione uni¬ 
ca della equazione associa¬ 
ta); 

se DELTA >0 il segno di 
AX 2 +BX + Cè sempre ugua¬ 
le al segno di A per valori 
esterni alle soluzioni 
dell’equazione associata, 
contrario per valori interni. 

Il programma seguente è 
stato provato su un Commo¬ 
dore 64, ma con minimo ag¬ 
giustamenti de tutto ovvii, 
adattabile ad ogni tipo di cal¬ 
colatore. 

Istruzioni 

5 Ripulisce lo schermo 

eseguendo (PRINT) 
un’operazione del ti¬ 
po “CLEAR/HOME” 
10-14 Dichiarano le finalità 

del programma 

15-17 Ingresso dei dati nu¬ 

merici 

20-21 Tipo di disequazione 

considerata, dichia¬ 
rata mediante l’in¬ 
gresso del dato 
“stringa” A$ 

25-50 Istruzioni per girare 

pagina a comando 
(uno degli usi tipici 
dell’istruzione GET) 

60 Calcolo e stampa del 

discriminante (DEL¬ 
TA) 

70-80 Assegnazione di va¬ 

lori numerici ai valori 
possibili della varia¬ 
bile stringa A$ 


90 Definizione di una va¬ 

riabile che dipende 
dal segno del discri¬ 
minante [SGN(DEL- 
TA)] ma che assume 
valori positivi (otte¬ 
nuti aggiungengo 2) 
in modo da poter es¬ 
sere usata con l’istru¬ 
zione ON 

95 Ramificazione a se¬ 

conda del segno del 
discriminante 

96-97 Dichiarazione dei si¬ 

gnificato dell’uscita 


100-110 Caso con discrimi¬ 

nante negativo 

200-220 Caso con discrimi¬ 

nante nullo 

300-330 Caso con discrimi¬ 

nante positivo 

1000-1030 Ripetizione o fine del 
programma 
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SCUOLA E COMPUTER 


"B=";B 
"C="c 


> GOTO 20 


5 FRI NT" 73" 

10 FRINT" SOLUZIONE DI UNA DISEQUAZIONE" 

11 FRINT" DI SECONDO GRADO DEL TIFO : " 

12 FRI NT " A*X 12+B#X+C>0 OPPURE : " 

13 FRINT" A#XT2+B*X+C<0" 

14 FRI NT : FRINÌ r FRINT 

15 INPUT "A=";A 

16 INPUT 

17 INPUT 

20 INPUT "DIS=" '/ 

21 IF > AND CASO' 

25 FRINT:FRINT-FRINT 

30 B*=" FREMI UN TASTO FER PROSEGUIRE" 

35 FRINT B$ 

40 GET Z$ : IF Z$=""THENGOTO 40 
50 FRI NT "73" 

60 DELTA=E*B-4*A*C : FRINT" DELTA="; DELTA 

70 IF A$="<" THEN DISEQ=-1 

30 IF A*=">" THEN DISEQ=+1 

90 SEGNO=SGN<DELTA> +2 

35 ON SEGNO GOTO 100,200,300 

96 C$=" LA DISEQUAZIONE E" SODDISFATTA" 

97 D$=" PER I SEGUENTI VALORI DI 

100 IF A#DISEQ>0 THEN PRINTC$:PRINTDT : FRINT : PRINT" TUTTI": GOTO 1000 

110 IF A*DISEQ<0 THEN FRI NTCS ■ PRINTDT:FRINT :FRINT" NESSUNO" : GOTO 1000 

200 X0«-B/<2*A> 

210 IF A*DISEQ>0 THEN PRINTC$ : PRINTDf : FRINT : FRINT : PRINT" 

OTO 1000 

220 IF A*DISEQ<0 THEN FRINTC$ : PRINTDT : FRINT : PRINT :PRINT" 

300 X1 = <-B-SQR ( DELTA> ;*/<2*A> : PRI NT " X1 = " ; X1 
310 X2=(-E+SQR<DELTA>>/(2*A):PRINT" X2=";X2 

IF A#DISEQ>0 THEN PRINT Ct■ PRINTD$:PRINT :PRINT" 


TUTTI TRANNE X=";X0:G 
NESSUNO" : GOTO 1000 


X<":X1:PRINT" 


X> 


320 
1000 

330 IF R#DI SEQ03 THEN PR INTCT •' PR I NT UT : PR I NT : PR I NT " " ; X1 ; " <X< " ; X2 : GOTO 

1000 PRINT : PRINT •' PRINT : PRINT" VUOI RISOLVERE UN' ALTRA DISEQUAZIONE? " 
1005 PR I NT " <. S/N > " 

1010 GETZ$ : IFZ$=""THENÌ010 
1O20 IFZ$<>"N"THENG0T05 
1030 END 

READV. 


10 PR I NT " 73" 

20 REM *** PROGRAMMA TABELLINE *** 

30 PRINT : PRINT" LE TAEELLINE 

40 PRINT : PRINT" ORA TI INTERROGO SULLE TABELLINE 

50 FOR I = 1T05000 : NEXT 

60 PR I NT " 73" : PR I NT : PR I NT " RI SOLVI : " 

70 A=INT<RND < 1)*10> + 1 
SO E= I NT< RND <. 1 > % 10 > +1 

90 printa;"#";B"= ?" 

100 C=Aìf:B 
110 INPUTD 

120 IFDCTHENPRI NT " MOLTO BENE, BRAVO ’ 

130 IFCODTHENPRI NT " : PR I NT : PR I NT " 

140 PRINT :PRINT : PRINT"RIPASSA LA TABELLINA 
150 FORI-1TO10 I : PR I NT A " X " I" = " N : NEXT 

160 FORI = 1TO11000 :NEXT 
170 PRINT'73" : GOTO90 


;X2: GOTO 
1000 


Il microprogramma sulle 
tabelline che segue quello 
sulle disequazioni è stato ela¬ 
borato da Alfredo (11 anni, 1 a 
media) e sperimentato con ef¬ 
ficacia da Antonello (7 anni, 
2 e lementare). 


: FOR I = 1 TO 1 000 : NEI- 
AHI! AHI! 
DEL";A 


T:GOTO60 
AHI ! " 


READV. 
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Ginnastica Aerobica 


Il proliferare delle palestre di danza aerobica e un diverso rapporto della gente con il proprio,\ corpo ha 
rilanciato la moda delle diete integrate con l'esercizio fisico. 

Spesso questa pratica può risultare dannosa perii proprio fisico, invece che utile. 

Ciò succede, quando nella smania di migliorare le proprie prestazioni, si tenta di superare alcuni limiti che 
invece, tali devono rimanere. 

Nella pratica sportiva, bisogna assolutamente seguire le indicazioni mediche che riguardano, ad esem¬ 
pio, il battito cardiaco. 

Chi svolge una vita sedentaria, non può improvvisamente correre per 60 Km a settimana senza che il cuo¬ 
re, i muscoli, i tendini ne risentano. Generalmente, quando il fisico di una persona rimane per molte setti¬ 
mane in completa inattività, la frequenza del battito cardiaco, si stabilizza su 65-70 battiti al minuto. 
Svolgendo invece, una qualsiasi attività sportiva, in maniera equilibrata e costante, la frequenza dei battiti 
scende a 40-45 battiti al minuto. Questi due esempi si riferiscono però, ad una misurazione eseguita in 
condizione di riposo 

Sotto sforzo, la frequenza cardiaca può passare velocemente da 40 a ben 200 battiti al minuto, con la di¬ 
retta conseguenza, di un minor volume di sangue pompato dal cuore. 

Infatti, quando il cuore si contrae con maggior frequenza, non fa in tempo, tra una contrazione e la succes¬ 
siva, a riempirsi completamente di sangue. 

Questa è la diretta causa di molti crampi, che si manifestano proprio quando si sollecitano improvvisamen¬ 
te ed intensamente i muscoli. 

In breve, per chi da tempo è inattivo, è impensabile che nella pratica sportiva possa superare i 150 battiti 
cardiaci al minuto senza risentire di dirette e spesso gravi conseguenze. 

Il programma andrebbe eseguito dopo tutte le vostre cornette quotidiane nei parchi in cui praticate lo Jog¬ 
ging. 

Introducendo alcuni dati, il computer elabora un punteggio che serve perseguire l'andamento della vostra 
forma fisica ed altri dati riguardanti la velocità ed il tempo impiegato mediamente per percorrere una certa 
distanza. 

Dopo un riposo di cinque minuti bisogna introdurre la frequenza del battito, se è troppo alta il computer vi 
avvertirà stampando un messaggio sul vostro schermo. 


ISTRUZIONI 

50-90 
100 - 120 
130- 160 
170 - 300 
330 

350 - 390 
400 - 450 


Pulisce lo schermo, cambia il colore dello schermo, scrive il titolo. 

Introduzione dati durata della corsa. 

Introduzione dati distanza percorsa. 

Calcola e stampa i dati inerenti la velocità, il tempo medio ed i punti totalizzati. 
Salto condizionato. 

Routine di battiti normali 
Routine di valore battiti troppo alti. 


1J kc.Ii rrtt-tr t tr f ttrtr f r r t- 
2Ù REM GINNASTICA AEROBICft 
30 REM CON IL TI 99/4fi 
40 REM ******************* 

50 CALL CLEAR 
60 CALL SCREEN<16) 

70 CALL COLORO,2.. 16) 

80 CALL HCHftR<4,3,35,28> 

85 FOR T=1 TO 300 

86 NEXT T 

90 FRINT :"AEROBICA": : 

100 FRINT "SCRIVI IL TEMPO" : "IN CUI HAI CORSO" 
110 PRINT : 

120 INPUT "(MIN,SEC> ? " =M,S 
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130 PRIHT : : 

140 PRINT "SCRIVI LA DISTANZA" : "PERCORSA" 

150 PRINT : 

160 INPUT "(KM) ? " : D 

170 CALL CLEAR 

130 CALL SCREEN < 1 5 > 

190 T I =M+S/60 

200 PT=1 7. 9*D-(8.6> *TI- 1 .22 
210 PRINT "HAI TOTALIZZATO": 

220 PRINT PT ; 

230 PRINT "PUNTI AEROBICI" : 

240 TM=TI/D 
250 PRINT : : : 

260 PRINT "TEMPO MEDIO PER KM" : 

270 PRINT.TM;" MIN/KM" : : 

280 V=D/<TI*60) 

290 PRINT •:"VELOCITA- MEDIA": 

300 PRINT V; " KM/H": : 

310 PRINT "INTRODUCI IL RITMO" "CARDIACO DOPO 5 MIN." 
320 INPUT "DI RIPOSO "-BC 
330 IF BOI20 THEN 400 ELSE 350 
350 CALL CLEAR 
360 CALL SCREEN < 4> 

370 PRINT :::::: 

330 PRINT "VALORE O.K. " : "CONTINUA COSI-' !!...": 

390 END 

400 CALL CLEAR 
410 CALL SCREEN < 9. > 

420 PRINT :::::: 

430 PRINT "VALORE TROPPO ALTO," : "DEVI AFFATICARTI DI" 
440 PRINT "MENO! 

450 END 

READV. 



La coniugazione dei verbi 

Come usare l'home computer per far imparare ai vostri "diletti pargoli ", il presente indicativo dei verbi 
della l a coniugazione. 

ISTRUZIONI 

20 - 60 Presentazione programma e richiesta del verbo da coniugare 
70 Viene ricavata la desinenza del verbo nella forma infinita 

80-110 Si controlla che il verbo sia appartenente alla l a coniugazione, in caso contrario, viene rifor¬ 
mulata la richiesta di introduzione del verbo da coniugare 
130 Viene ricavata la radice 

140-210 Viene cancellato lo schermo. Attraverso una istruzione READ viene visualizzata, successiva¬ 
mente, la persona e la corrispondente forma coniugata 
220 Istruzione RESTORE per eventuale ripetizione con nuovo verbo 

230 - 280 Routine per la determinazione di una eventuale ripetizione 
300 - 310 Cancellazione schermo e fine del programma. 

Il programma, semplice e lineare, è stato ampiamente provato sul TEXAS TI 99/4A 
Per la sua semplicità costitutiva permette di essere adattato a molti home computer. 
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Nella forma presentata, si richiede l'introduzione di verbi della l a coniugazione regolari. In particolar mo¬ 
do che abbiano la radice terminante per una delle seguenti lettere: 

B, D, E, F, L, M, N, P, R, S, T, V, Z 

Per esempio: 

Rub-are; Assold-are; Cre-are... 

ATTENZIONE 


Il programma gira anche con quei verbi la cui radice termina con F, a patto che non siano: FARE e DISFA¬ 
RE; provando invece con filosofare va tutto bene. Altri esempi di verbi che non vengono coniugati corretta- 
mente, sono quelli che hanno bisogno di una h rafforzativa alla 2 a persona singolare ed alla l a persona 
plurale, cioè quelli in cui l'ultima lettera alla radice è C oppure G 

Anche i verbi la cui radice termina per i oppure o, u, non vengono coniugati correttamente 

Esempio: Studiare 

Alcuni esempi già coniugati 


CARIC-ARE 
lo caric-o 
Tu caric-H-i 
Egli caric-a 
Noi caric-H-iamo 
Voi caric-ate 
Essi caric-ano 


DISF-ARE 

lo disfo, disfò oppure disfaccio 
Tu disfai 

Egli disfa oppure disfà 
Noi disfacciamo 
Voi disfate 

Essi disfano oppure disfanno 


Cari amici "Texani", questo programma, rappresenta solo una traccia da approfondire ed ampliare 
Se ci riuscirete, comunicatelo a List! 


READY. 


1 REM **************** 

2 REM ♦'VEREI OH TEXAS* 

3 REM **************** 

20 CftLL CLEfiR 

30 PRI NT TRE < 2 > ; " PRESENTE INDI CRT IVO" : : 11 VERE I 1 " CON IUGRZI ONE " 
40 PRINT ^ :"SOLO NELLA FORMA" :: "REGOLRRE." 

50 PRINT : : : : 

60 INPUT "VERBO ? "•V* 

70 Rf=SEG$ < V$, < LEN V$ > -2 ) , 3 li¬ 
so IF R$0"RRE" THEN 100 ELSE 130 

100 PRINT : " IL VERBO NON E' DELLR" " 1" CONIUGRZIONE. " 

Ilo GOTO 50 

130 D$=SEG$ < V$, 1, -il LEN < V$ > -3 > > 

140 CRLL CLERR 
150 FOR 1=1 TO 6 
160 RERH P$..C$ 

170 print p$," m ;b$; "-".;C$: 

1S0 NEXT I 
190 PRINT : •' 

200 DRTR 10, 0, TU.. I, EGLI, A 
210 DRTR NO I, IRMO, VO I, RTE.. ESSI, RNO 
220 RESTOPE 

230 PRINT :"ALTRO VERBO ? CS/tD" 

240 CRLL KEV<0, K.. S> 

260 IF K=115 THEN 20 

270 IF K=110 THEN 300 

2SU IF KO115> + <KO110> THEN 240 

300 CRLL CLERR 

310 END 


RERDV. 
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Lezioni di spagnolo 

Un simpatico programma che mette in luce alcune delle caratteristiche principali del TI 99/4A. 

Attraverso opportune istruzioni CALL CHAR vengono ridefiniti molti caratteri linguistici propri della lingua 
spagnola. 

Il programma si presta ad essere usato, con l'aggiunta di qualche modifica, con lo SPEECH PROCES¬ 
SOR oppure con il TERMINAL EMULATOR, che permettono di poter ascoltare anche l'esatta pronuncia 
dei termini spagnoli. 

ISTRUZIONI 

110 - 200 Stampa sullo schermo il titolo e ridefinisce alcuni speciali caratteri linguistici spagnoli. 

210 - 290 Stampa sullo schermo le Istruzioni. 

320 - 370 Crea alcuni caratteri grafici usati successivamente per illustrare i termini spagnoli usati. 

ATTENZIONE, se dando il run, viene stampato un messaggio di errore alle linee 330 o 340, 
controllate attentamente le istruzioni DATA contenute alle linee 360-370. 

A tal proposito si ricorda che le stringhe alfanumeriche di definizione caratteri, usate nelle 
istruzioni CALL CHAR e nei blocchi di DATA, si ottengono digitando con il tasto ALPHA 
LOCK inserito. 

380 - 390 Definisce i colori per i disegni. 

400 - 420 Aspetta che venga premuto un tasto per continuare. 

430 - 560 Disegna la figura di un ragazzo e scrive in Spagnolo: "Sono un ragazzo". 

580 - 680 Disegna una ragazza e scrive la corrispondente frase. 

700 -1450 Pulisce lo schermo, disegna gradatamente una faccia e scrive le parti che la compongono. 

1480-1860 Scrive alcune frasi spagnole ed il corrispondente significato italiano. 

1900-1940 Routine che ferma il programma in attesa di un'istruzione ENTER. 

1960-1990 Routine che posiziona e scrive le parole corrispondenti alla faccia disegnata. 

2000-2010 Pulisce lo schermo e chiude il programma. 

Attenzione 

per scrivere gli strani caratteri che appaiono nel listato, bisogna usare il tasto FCTN. 

Ad esempio nella parola ni o, il carattere "_" si ottiene digitando FCTN.ed U. 

Non dimenticate di usare l'ALPHA LOCK per ottenenere le Maiuscole nelle frasi proposte. 








* 




100 REM LO SPAGNOLO CON IL TI 99/4A 
110 CALLCLEAR 

120 PRINT TAB (10); “SPAGNOLO” 

130 CALL CHAR (95, “324C004464544C44”) 
140 PRINT: TAB(10); “espa_ol”:::::: 

150 CALL CHAR (91, “08300038447C4444”) 
160 CALL CHAR (92, “0830007C4078407C”) 
170 CALL CHAR (93, “0830003810101038”) 
180 CALL CHAR (94, “0830007C4444447C”) 
190 CALL CHAR (35, “0010001010101010”) 
200 CALL CHAR (36, “000800081020221C”) 
210 PRINT “PREMI UN TASTO” 

220 CALL KEY (0,K,S) 

230IF S = 0 THEN 220 
240 CALL CLEAR 

290 PRINT “PREMI (ENTER PER CONTI-”: 

“NUARE DOPO OGNI FRASE.” 

320 F0R C = 128 T0 137 


330 READ C$ 

340 CALL CHAR (C,C$) 

350 NEXT C 

360 DATA 3C7EC3C3C3C37E3C, 000000FFFF, 
181818FFFF181818,1818181818183C3C, 
0000000001010302 

370 DATA 6642C38181, 000000008080C04, 
06040C183870E0C,602030181C0E0703, 
FFFFFFFFFFFFFFFF 
380 CALL COLOR (13, 5,1) 

390 CALL COLOR (14, 5,1) 

400 PRINT ‘‘PREMI UN TASTO” 

410 CALL KEY (0,K, S.) 

420 IFS = 0 THEN 410 

430 CALL CLEAR 

440 CALL HCHAR (17,16,128) 

450 CALL HAfiAR (18,15,129, 3) 

460 CALL HCHAR (18,16,130) 


# 
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470 CALL HCHAR (19,16,131) 

1150 GOSUB 1960 


480 CALL HCHAR (20,15,132) 

1180 GOSUB 1900 

* 

490 CALL HCHAR (20,16,133) 

1200 CALL CHAR (128, “2040A010080601”) 


500 CALL HCHAR (20,17,134) 

1210 CALL CHAR (129, “000000000000817E” 


510 CALL HCHAR (21,15,135) 

1220 CALL CHAR (130, “0402050810608”) 

m 

520 CALL HCHAR (21,17,136) 

1230 CALL HCHAR (16, 21,128) 


530 PRINT TAB (9); “Soy un ni o” 

1240 CALL HCHAR (16, 22,129) 


560 GOSUB 1900 

1250 CALL HCHAR (16, 23,130) 

- 

580 CALL COLOR (13, 7,1) 

1260 W$ = “boca” 


590 CALL COLOR (14, 7,1) 

1270 X = 16 


600 CALL CHAR (133, “7E7EFFFFFFFFFFFF”) 

1280 GOSUB 1960 

& 

610 CALL CHAR. (135, “07070F01F3F7FFFFF”) 

1300 GOSUB 1900 


620 CALL HCHAR (20,16,137) 

1330 CALL CHAR (148, “0000000C42222222” 


630 CALL CHAR (136, “E0E0F0F8FCFEFFFF”) 

1340 CALL CHAR (149, “000000601010102”) 

m 

640 CALL HCHAR (23,11, 32,12) 

1350 CALL CHAR (150, “0000000608080804”) 


650 PRINT TAB(8); “Soy una ni a” 

1360 CALL CHAR (151, “0000003042444444”) 


660 PRINT: 

1370 CALL HCHAR (10, 20,148) 

# 

680 GOSUB 1900 

1380 CHAR HCHAR (10, 21,149) 


700 CALL CLEAR 

1390 CALL HCHAR (10, 23,150) 


710 CALL CHAR (144, “EFDFFAA7FFEDFE7F”) 

1400 CALL HCHAR (10, 24,151) 

m 

720 CALL CHAR (145, “8040201008040201”) 

1410 W$ = “pestu a” 


730 CALL CHAR (146, “0102040810 20408”) 

1420 X = 10 


740 CALL CHAR (147, “FF”) 

1430 GOSUB 1960 

% 

750 CALL HCHAR (8,19,144, 7) 

1450 GOSUB 1900 


760 CALL HCHAR (9,18,144) 

1480 CALL CLEAR 


770 CALL HCHAR (9, 26,144) 

1490 PRINT “Buenos d]as, se or.”:: “Buon giorno, signore”:: 

& 

780 CALL CALL VCHAR (10,17,144, 8) 

1500 GOSUB 1900 


790 CALL VCHAR (10, 27,144, 8) 

1510 PRINT “Buenas tardes, se_ora.”:: 


800 CALL HCHAR (18,18,145) 

1550PRINT “Buonasera, signora.”:: 

'-a 

810 CALL HCHAR (18, 26,146) 

1570 GOSUB 1900 

w 

820 CALL HCHAR (19,19,145) 

1590 PRINT “Buenas noches, se_orita.”:: 


830 CALL HCHAR (19, 25,146) 

1600 PRINT “Buona notte, signorina.”:: 

ai* 

840 CALL HCHAR (20, 20,147, 5) 

1610 GOSUB 1900 


850 PRINT TAB (17); “cabeza” 

1640 PRINT: ::“$Habla usted espa ol?”:: 


860 GOSUB 1900 

1650 PRINT “Parla spagnolo?” 


900 CALL CHAR (152, “0F1020408083878F”) 

1660 GOSUB 1900 

W 

910 CALL CHAR (153, “F008040201C1E0F1”) 

1690 PRINT:::“# Yo hablo espa-ol”:: 


920 CALL CHAR (154, “4F4F4F2F2F2F708”) 

1700 PRINT “Io parlo spagnolo!” 


930 CALL CHAR (155, “F2F2F2F4F4F40701”) 

1710 GOSUB 1900 

■# 

940 CALL COLOR (16, 5,1) 

1740 PRINT::: “$C mo està usted?”:: 


950 FORI = 20 TO 23 STEP3 

1750 PRINT “Come stai?” 


960 CALL HCHAR (11,1,152) 

1760 GOSUB 1900 


970 CALL HCHAR (11,1 + 1,153) 

1790PRINT::: “No s\.”:: 


980 CALL HCHAR (12,1,154) 

1800 PRINT “Non so’.” 


990 CALL HCHAR (12,1 + 1,155) 

1810 GOSUB 1900 


1000NEXTI 

1840 PRINT: : : ‘ # Adi* s ! ” : : “ Arrivederci !” : : : 


1010 W$ = “ojos” 

1850 GOSUB 1900 


1020 X = 12 

1860 GOTO 2000 


1030 GOSUB 1960 

1900 CALL KEY (0, K, S) 


1050 GOSUB 1900 

1910IF K = 13 THEN 1940 


1080 CALL CHAR (136, “000404080810102”) 

1920IFKO 13 THEN 1900 

W 

1090 CALL CHAR (137, “20404080808C936”) 

1940 RETURN 


1100 CALL COLOR (14,10,1) 

1960 FORI = ITO LEN(W$) 

& 

1110 CALL HCHAR (13, 22,136) 

1970 CALL HCHAR (X, 4 + 1, ASC(SEG$(W$, 1,1))) 

1120 CALL HCHAR (14, 22,137) 

1980 NEXTI 


1130 W$ = “nariz” 

1990 RETURN 


1140 X= 14 

2000 CALL CLEAR 



3010 ME»_ 
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Coder-decoder 


Se volete diventare degli Agenti Segreti... come primo coso sarà opportuno rendere indecifrabili i vostri 
messaggi Top-Secret. 

La prima parte, CODER, codifica il messaggio che invierete ad un vostro amico (anche lui aspirante James 
Bondj che lo decifrerà inserendolo nei DA TA del programma DECODER. 

Logicamente... attenti a non far cadere in mani nemiche il listato!!!! 


VARIABILI 

CODER A$=dati da codificare 
1=variabile di codifica 
DECODER A$ = dati da decodificare 
1=variabile di decodifica 
A=contatore di caratteri sullo schermo 


STRUTTURA 

CODER: 70 ingresso dati 

80-160 stampa e codifica dati 

DECODER: 70-90 lettura parole da decodificare 

100-200 decodifica 

210-220 spaziatura 

230-9999 dati da decodificare 


10 REfl ************** 

20 REH ** PAOLO 84 ** 

30 REM ** CODIFICA ** 

40 REM ************** 

50 CLS 

60 REH INPUT PAROLA DA CODIFICARE 
70 INPUTA$ 

80 REM LOOP DI CODIFICA 
90 FOR 1=1 TO LENCA$} 

100 RED STAMPA PAROLA IN CODICE 

110 PRINT CHR$CASCCniD$CA$,1,133-13; 

120 LPRINT CHR$CASCCMID$CA$ J I,133-13j 

140 NEXT I 

150 PRINT : LPRINT 

160 GOTO 60 


10 REM **************** 

20 REM ** DECODIFICA ** 

30 REM ** PAOLO 1984 ** 

40 REM **************** 

50 CLS 

60 REM LETTURA DATI 
70 READ A$ 

80 REM FINE MESSAGGIO 
90 IF A$~"D" TMEN END 
100 REM LOOP DI CODIFICA 
110 FOR 1=1 TO LENCA$3 
120 REM CONTATORE FINE RIGA 
130 A=A+1 

140 IF A=38 THEN PING : PRINT :PRINT 
—0 
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150 IF 0$="#" THEN PRINT " , “ ; :LPRINT " , " 
; -'GOTO210 

160 REP1 STOMP0 DELLO POROLO DECODIFICOTO 
170 PRINT CHR$COSCCMID$CO$,I, 133 + 13 ; 
LPRINT CHR$COSCCNID$CO$,I,133+13; 
UOIT 40 
NEXT I 

REfl SPOZIOTURO 

6=6+1 : PRINT " " ; : LPRINT " GOT 


180 
190 
200 
210 
220 
0 70 


230 REfl P6R0LE IN CODICE 
240 D6T6 HL,PSBOO?,QGDD0,# 

250 D6T6 ©LONCHGG, HLPOMCN=, KC 
260 D6T6 0?0KG? 5 Bf16E6C <9K j , OPF I < 

270 D6T6 C?I,0PLCM;FE8,CG,BM0E0C<9 
290 D6T6 -,6SLJ,CGS6HNBE<DIC,-,KGPP 
300 D6T6 07LHJ,0750 
9999 D6T6 1 


Renumber line 


Nella compilazione di un programma spesso ci si trova nella condizione di dover inserire delle nuove li¬ 
nee. Per evitare i GOTO ea i GOSUB, dovuti alla mancanza di spazio, e per curare una certa estetica del 
programma, vi potrete avvalere di questa utility. 

Vi permetterà di rinumerare tutte le linee del programma. 

Attenzione, però: rimangono invariati i numeri di linea che seguono le istruzioni GOTO e GOSUB, per cui 
è necessario che siano corretti da voi. 


3 REH ************************ 
6 REM * RENUNBER ORIC - 1984 * 
9 REfl * ELENCO U6RI6BILI * 


12 

REN 

* 

DEEK 

C #903 =L0C621ONE 

* 

15 

REN 

* 

PORTENTO PROG. BOSIC. 

* 

18 

REN 

* 

DEEK 

(#9C3=L0C02IONE 

* 

21 

REN 

* 

FINE 

PR0GR6NN6 BOSIC 

* 

24 

REN 

* 

6 = 

INDIRIZZO NUMERO 

* 

27 

REN 

* 

LINEO PROG.-DEEK C63 

* 

30 

REN 

* 

N = 

NUMERO DI LINEO 

* 

33 

REN 

* 

S = 

NUN. DI PORTENZO 

* 

36 

REN 

* 

I 

= INCREMENTO 

* 

39 

REN 

* 

NON 

RINOMERÒ GOTO E 

* 

42 

REN 

* 


GOSUB 

* 


45 REN * D6RE GOTO 63900 PER * 

48 REfl * RINUHERBRE * 

51 REfl ************************ 

63900 PRINT CHR$ C123 ; SPCf83"* RENUNBER 
*" : PRINT 

63910 INPUT "INIZIO 6 RINUNERORE D6 " ;S 
63920 INPUT "INCREMENTO "; I 
63930 6 = DEEKC#903 :E=DEEKC#9C3 
63940 N = DEEK CO + 23 

63950 IF N> =63900 OR 6>E THEN PING : PRI 
NT"FOTTO“" :END 

63960 DOKE 6 + 2,S :S=S+I :0=DEEKC03 
63970 GOTO 63940 
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Stanze 

Siete prigionieri di un mago cattivo e tanto perfido da aver ideato un gioco di cui voi siete l'ignara vitti¬ 
ma. 

Vi trovate infatti in una casa dove ogni stanza ha uno svariato numero di porte: dietro una di queste si na¬ 
sconde il mago, che tra un ghigno e l'altro, vuol vedere quante ne riuscirete ad aprire senza incontrarlo. 


1 

REM STANZE 




2 

LET 5 = PI-PI 




3 

LET G=UAL ”5" 




4- 

FOR N = UAL “1" 

TQ 

O 


5 

LET Y =UAL ** 5 " 

*N 



6 

PRINT AT UAL 

••4" . 

Y ; 


7 

FOR M=UAL " 1" 

TO 

UAL 

" 5 “ 

S 

PRINT TAB Y ; 




9 

NEXT M 




10 

PRINT AT UAL 

** 6 " .. 

Y+UftL " 1' 

11 

NEXT N 




12 

LET Li = I NT (RND*G> 

FU AL 

“1“ 

13 

PRINT AT UAL 

** 15“ 

, UAL 

“i”; 


QUALE PORTR?" 

14. XF INKEY S = “ *' THEN GOTO URL 

13" 

15 LET X=CQDE INKEY*—UAL "SS" 

16 LET Y=UAL ”5"*X 

17 XF X=U THEN GOTO UAL "26" 

18 LET S=Sf1 

19 PRINT AT UAL "4".Y; 

20 FOR HsURL "1" TQ UAL "5" 

2 1 PRINT TAB Y** 

22 NEXT M 



PUNT I =4- STANZE 
23 CLS 

24. LET 0=0 —UAL "1“ 

. «Mrv 1 . SxURL *' 4 ” = XNT (5/ URL "4. " 
) AND S > UAL ,, 0" THEN GOTO UAL "2 

26 GOTO URL “3" 

27 PRINT AT URL "4" Y;" ";TR 

tab ; y; "i» ;TRB Y; 

IIÌM■ £, R .PL "15" , URL "1“; •• 


29 PRINT ,, U PUNTI=";S;" STANZE 
30' STOP 


Dame 


Un baldo cavaliere (0 in campo inverso) deve cercare di salvare la damigella del cuore (x in campo in¬ 
verso) dai draghi (" in campo inverso) che le fanno la guardia, e portarla nel suo castello ( + in campo in¬ 
verso). 



ISTRUZIONI 

Per il movimento del cavaliere usate i 4 tasti cursore. 


ì 

REM 

DAME 

10 

LET 

A=P1/P1 

20 

LET 

B = A 

30 

LET 

C=B 

40 

LET 

0 = 31 

50 

LET 

E =20 

60 

LET 

F=C 

70 

LET 

S=PI-PI 

75 

LET 

u $ = "E" 

80 

PRINT AT "§".;AT C 

; AT E 

:, f; 

; AT 17,28, "B"; AT 3,26 

u* 

90 

LET 

A =A-(INKEY * = "7 "ì F <INKEY 

• * ** 6 " 

) 


100 

LET 

B=B- ( INKEY * = ‘*5 ”ì F ( INKEY 

* = ••8" 

) 


120 

IF 

6=0 THEN LET B=30 

130 

IF 

B =31 THEN LET 6=0 

140 

LET 

C = C- (A <C> «- (A >Cf 

150 

LET 

D*D-(B(D) F (B>D) 

160 

LET 

F=F- (B <F) F (B)F) 

170 

LET 

E=E - (A <E) + ( A .*• E > 


180 IF 
=8 THEN 
185 IF A = 10 AND 8 = 16 
B =28 THEN LET U$ = "" 
190 IF A =17 AND B=28 
THEN GOTO 350 
200 CLS 
300 GOTO 60 
350 LET S=Sfl 
360 GOTO 75 


C = A AND D=B OR E =A AND F 
PRINT "RHH";S;Z 

OR A=3 AND 

AND U* = "" 


75 
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I 


m 


i 

# 


Flying simulator 


È un programma di simulazione strumentale del volo di un aereo. 


ISTRUZIONI 

Il programma. 

Si divide in due listati, il primo fornisce le istruzioni e lancia in autostart il gioco vero e proprio. 

Come ogni bravo pilota, prima di decollare, il computer chiede che venga eseguita la prova dei motori 
con la pressione di un tasto. 

La fase di decollo si presenta sullo schermo con un aereo sulla pista e le indicazioni strumentali riguardanti 
nell'ordine: 

FUEL la quantità di carburante disponibile.. 

ALTITUDE l'altezza dell'aereo rispetto al suolo.. 

0 LEVEL l'altezza dell'areo rispetto al livello del mare. 

LEVEL l'altitudine dal suolo nel punto sorvolato. 

Per decollare bisogna premere per 5 volte uno dei tasti indicati. 

Si passa alla fase di crociera e lo schermo stacca su una nuova immagine con le solite indicazioni degli 
strumenti. 

È questa la fase più lunga del volo, in cui il computer generando un numero casuale, anzi una serie di nu¬ 
meri casuali decide: 

1 ) le asperità del terreno,- 

2) quanto deve durare la fase di crociera,- 

3) l'avvistamento di un aereoporto. 

Avvistato l'aeroporto comparirà sulla destra dello schermo un breve messaggio (AP) ; preparatevi allora a 
scendere e ad eseguire un perfetto atterraggio. 

Attenzione, dopo questo avvistamento il computer pone a zero le asperità del terreno e stacca nuovamen¬ 
te lo schermo su un'altra immagine; in prossimità della quota zero, si dovrà procedere con l'inclinazione 
minore possibile, altrimenti.... ci si schianterà al suo o! 

Non è tutto, può darsi che la pista dell'aereoporto sia troppo corta per il vostro aereo,- ve ne renderete 
conto solo alla fine, quando un perentorio FINE DELLA PISTA comparso sul vostro schermo, ed un segnale 
acustico vi indicheranno che conviene alzarsi e fare un giro, carburante permettendo, in attesa che la pista 
sia sgombra da altro traffico aereo. 

Per ogni atterraggio, eseguito vengono assegnati altri 1000 galloni di carburante oltre quelli di cui si è già 
in possesso: il gioco inizia nuovamente con un aumento del grado di difficoltà. 

Attenzione: 

I consumi non sono sempre uguali, ma variano rispetto alle operazioni che si eseguono. 

COMANDI 


m 

TASTI . 

1 discesa leggera 

2 discesa media 

3 discesa brusca 

-1 

-3 

-6 

consumo 4 unità 
consumo 1 unità 
consumo zero 

# 

7 salita leggera 

+ 1 

consumo 6 unità 


8 salita media 

+ 3 

consumo 15 unità 

m 

9 salita brusca 

+ 6 

consumo 40 unità 


la pressione di un qualsiasi altro tasto determina una variazione di quota uguale a zero ed un consumo di 5 
unità. 

Jenete conto però dell'altezza del terreno sotto di voi. 

È prevista la possibilità di poter eseguire degli atterraggi di emergenza. 
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ELENCO VARIABILI 


V 
X 

M,A 

Y 
S 
Z 
L 

Q 

P 

T 

RS 

R 

B 

W 


quantità di carburante, 
variazione di quota. 

variabili di servizio per incremento difficoltà, 
altitudine del suolo, 
determina la ripidità del suolo. 

equivale al numero di manovre da eseguire nella fase di crociera. 

equivale al numero di manovre da eseguire nella fase di decollo e atterraggio o collisione. 

quota dell'aereo sul livello del mare. 

numero atterraggi. 

variabile di servizio per temporizzazioni, effetti sonori. 

variabile creazione effetti sonori. 

controllo volume. 

altezza del suolo dopo manovra. 

numero degli atterraggi di fortuna compiuti. Se sono minori di 2 non valgono. 

Attenzione 

Gir atterraggi di fortuna vengono compiuti quando, premendo di seguito i tasti che eseguono 
delle manovre, si riesce a mantenere per almeno 2 volte l'aereo a quota 0. 

Le indicazioni strumentali sono scritte in inglese per ragioni di spazio legate alle dimensioni 
dello schermo del VIC. 



10 PRI NT " ni" : P0KE36879,8 

20 PRINTTAB<110)" eOPVRIGHT 1984 M MASSIMO TRUSCELLI" 

21 PRINT"W VIA STAMIRA 70 ffl 00162 ROMA" 

22 FORT-1TO9000 : NEXTT • PR I NT " :'fi" ■ P0KE36879, 59 

70. FRI NT" a-" 

80 FRI NT" zr W ZW " 

90 FRI NT" JT W zr " 

100 PRINT"Sli»PBra|__Br\y»»»Br • " 


77 
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.^ 



m 


r; 

# 


110 
120 
130 
140 
150 
160 
170 
175 
180 

185 

186 
190 
200 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 


FRINÌ" 
PRIMI" 
PRIMI" 

FriMI¬ 
RRI NT" 
PRIMI- 
PRIMI" 
FRINT" 
PRIMI" 
PRIMI" 
P0KE36 
FORT"1 
PRIMI" 
PRIMI" 

FRIMI¬ 
RRI MI" 
FRINT" 
FRINT" 
FRINT" 
PRIMI" 
FRIMI¬ 
RRI NT" 
GETXT: 
PRIMI" 
PRIMI" 
P0KE63 


ma i w" 

\ 

niiiiina ^»**ina v 
mimine v 

tB'PMftfttliia-" 


iMPMtìPil ,--, " 

IFLVIMG SIMULATOR I " 

».__________________,» Il 

877,240 :FORV-0TO9SIEP.08 :P0KE36878,V•NEXTV 
106000 :NEXr 

T' ^ P0KE36879,25 :P0KE36878,3 
PICCHIATA CONSUMO W 
an -ì 4M" 

SG! “3 1M" 

«31 -6 0M" 

il CABRAIAMM" 

«7* +1 6M" 

«31 +3 1 Sii¬ 
seli +6 40ÌM(!3" 

WMFREMI UN TASTO" 

IRMI-'" "THEN255 

^RITENZIONE ALLA QUOTA EH AL CARBURANTE." 
MHMMBUQNA FORTUNA ! ! ! al" 

1,131^ P0KE632,13 : POKE198,2 : NEH 


READY. 


6 


10 
11 
12 

13 

14 

15 

16 

19 

20 
21 

90 

91 

1 00 
110 
130 

140 

141 

142 

143 

144 

145 

146 

147 
150 
160 

169 

170 


PRIHT " T' : PUKE36879,25 
FRINT"S" 

PRIMTTAB<110>"a ■ a 00! ■ 

PRINTTAB<1 IO)" PREMI UN TASTO" 

FORT=245TO220STEP“1 :P0KE36877, T:NEXT 
F0RR=3T07STEP.08 :POKE 36878,R:NEXTR 
GETX$ •' IFX$=" "THEN11 

PR I NT " «PMPlPMilPMPlPMililIiW HSPROVA MOTOR I " 

F0RR=7T 015STEP1 :P0KE36878,R:NEXTR 

FORRS=190TO240:P0KE36877,RS:FORT=1TO50:NEXTT,RS 

FORR= 15T08STEP-. 09 •' P0KE36878, R : NEXTR 

FORRS=240TO220STEP-.05 :P0KE36877,RS:NEXTRS 

PRINT'LT' 

PR INTTAB < 110 > " mmm a PROVA MOTOR I OK ! ! " 
PRINT-iWB PREMI UN TASTO" 

GETX$ : IFX$=""THEN90 
PRINT’LT' 

M=1 : A=70 

V=V+1000 :M=M+3 : A=A+30 
PRINT"Si«!G FASE DECOLLO FU " : PRINT"B" 

PR I NT " MMMflFUEL 1000 " 

PR I NT " iSDflMMMRLTI TUBE : 00 " 

PRINT-cìpMpMp» LEVEL : 00" 

PRINT"4ìPlPMPMPfi LEVEL : 00" 

rrint":pmpmpmpi«pìì t- 

FRI NT"_-" 

FRI NT" 0 • t • " 


PRINT"Bi« 

FORL=0TO5:GOSUB10000 : NEXTL 

FRI NT "ZI" ^ POKE36879, 59 

PR I NT " mi FASE CROC IERA FC " : PR I NT " ■ " 
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130 PRI NT " SMpWFUEL : " 

181 PR I NT " SiiiltìtìilWLT I TUBE : " 

1S2 PR I NT " LE'v'EL : " 

133 PR I NT " ciPMillPMPf. LE'v'EL : " 

184 PR I NT " jfftlMPWI t" 

185 PRINT " -•-" 

290 F0RZ=1T0M 

1000 V= I NT ( RND < . > *H > : S= I NT < RND <. > *< V-X >/€> ) 

1100 FORB=XTOVSTER3 : I FS=0THENS=SGN < V-X > : IFSO0THEN1100 
1200 IFS=0THEN1400 
1300 GOSUB10080 :NEXTB 
1400 X=V : NEXTZ 

1500 PR I NT 11 clp)0»»»ii»»ii»»i»»»»tlp" 

1600 S=INT <RND<.>*<-X>X2>: IFS=0THENS=-1 
1700 F0RB=VT00STERS:GOSUB10000 :NEXTB•B=0 

1799 PRINT":P0KE36879,93 

1800 PRINT "3301 FASE ATTERRAGGIO " : PRINT"!" 

1801 PRINT" ®!MSFUEL :" 

1802 PR I NT." mmtftLJ I TUBE : " 

1803 level 

1804 PRI NT " SSBMPMtìnr. LEVEL : " 

1805 PRINT"WBW_" 

1806 PRINT" 

1807 PRINT" / I \" 

1808 PRINT" / 

1809 PRINT" / I \" 

1810 PRINT" 

1311 PRINT" / I 
1812 PRINT" / t" 

1313 PRINT"/--•-" 

2000 FORL=0TO5+1NT <RND <.)*30 >:GOSUB10000 
2100 IFQO0THEN2300 
2150 IFC$O"1"THEN2300 

2200 PRINT" fflka ATTERRAGG1 0 OKM ! ":PRINT"■":P=P+1 : GOTO110 

2300 NEXTL 

2400 PRINT"301 a FINE PISTA !! " : M= INT<M/2 ■■ 

2410 P0KE36876,220 :P0KE36877,0 
2420 FORT =1TO50O:NEXTT 
2430 POKE36876,0 :P0KE36877,220 
2500 GOTO160 

10000 GETC$: IFC$=""THEN10000 
10010 IFCT="1"THENX=-1 :V=V-4: GOTO10080 
10020 IFC$="7"THENX=+1 : V=V-6: GOTO10080 
10030 IFC*="2"THENX=-3:V=V-1: GOTO10080 
10040 IFC$="8"THENX=+3 : V=V-15 : GOTO10080 
10050 IFC$="3"THENX=-6 : V=V•GOTO10080 
10060 IFC$="9"THENX=+6 : V=V-40: GOTO10080 
10070 X=0:V=V-5 
10080 Q=Q+X: IFV/0THEN10160 

10090 PR I NT " aWPMCilWtìftPM?] CARBURANTE ESAURITO " : P0KE36879, 8 : F0KE36877 , 0 

10091 FORRS-190TO240STEP.9 ; POKE 36876,RS 

10092 FORT=1TO40:NEXTT,RS 

10093 P0KE36877,220 
10100 FORL=Q-BTO0STEP-6 

10110 PR I NT " cIpIpMp.MpMp,M " : PR I NT " L 

10120 FORTETO 100 : NEXTT : NEXTL 

10130 PR I NT " nal" ^ POKE36879,8 : P0KE36878,15: P0KE36S76,0 

10131 print"M i m m m m m % n ! ! m m m m w 

10132 PRINT"! ! ! ! ! ! ! ! ! ! m ! ! ! ! ! ! ! !" 

10133 PRINT"! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! " 

10134 PRINT"!! !! m ! ! !" :P0KE36877,200 


m 

m 


# 


# 
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10135 PRI NT " m ..-====<#>==:==-—.. " : FORR= 15TO0STEP-1 : P0KE36378, R 

10136 FORT=1T 099 ■ NEXTT,R : IFPO1THEN10140 
10 13? pr i nt " mmm' p "rtterrrgg i i " 

10140 PQKE36378,0 :P0KE36877,0 :P0KE36876,0 
10150 POKE138,0 

10159 END 

10160 IFGKBTHEN10130 
10170 IFQOBTHEN10200 
10180 W=W+1:IFW<=2THEN10200 

10190 PRINT" EMERGENCV LRNDER OK!":P=P+1 :V=V+1NT <RND<.> *301> 

10200 PR I NT " 

1020 1 pr i nt " V 

10202 PRINT H 3®®®®»Ì»»iWÌ»»»l 

10203 PR I NT " Q-B 

10204 pr i nt " mmntmmmm 

10205 PR I NT " Q 

10206 PRINT" ! SfH!M«f!l«i»M»Mli»Hil 

10207 PR I NT " StPMcMPlPJMi*»»»»**»" B 
10210 IFQOBTHENW=0 

10220 RETURN 



BO 



































Falciatrice 

Il vostro giardino ha bisogno di essere curato,- quindi, via le erbacce!! 

Ma attenzione, la vostra falciatrice a motore potrebbe rompersi... sui sassi, oppure rimanere senza olio. 

ISTRUZIONI 

Z=sinistra 
X=destra 
'=sopra 
/=sotto 


t REM *************** 

2 REfl * ANTONIO 84 * 

3 REfl * FALCIATRICE * 

4 REH *************** 

5 CLS 

10 TEXT :GRAB •'HIMEM4B400 
20 GOSUB1300 :HU = 0 :CLS :GOSUB500 
30 SC=0 :LE*=1:LI x-2 
40 CLS sPAPER2:1NK4:GOSUB300 
50 REPEAT:«$=KEY$ 

60 IFK$="Z"THENA$="SINISTRA" 

70 IFK$="X"THENA$="DESTRA" 

80 ..."SOPRA" 

90 I FK$="/"THENA$="SOTTO" 

100 PLOTX*, Y*,"»" 

110 IFA*="S1NISTRA"THENX*=X*-1 

120 IFA$ = "DESTRA“THENX*=X*+ 1 

130 IFA$="S0PRA"THENY*=Y*-1 

140 IFA$="SOTTO"THENY*=Y*+1 

150 CH*=SCRNCX*, Y* 3 

160 IFCH* <> 32THENGOSU82000 

170 SC=SC+.1:OIL=OIL-.1 

180 GOSUB1500 

190 UNTILDIEORSC> 46*LE* 

200 IFDIETHENGOSUB2100:GOTOU 

210 IFSC>46*LE*THENGQSUB2200:GOTO40 

299 REfl 

300 PLOT0,0,CHR$C13:PLOT11,0,"<<FALCIATR 
ICE> > " 

310 F0RA=2T036:PLOTA,2,"2":PL0TA,23, "2": 
NEXTA 

320 F0RA=3T022:PL0T2,A,"2":PL0T36,A,"2": 
NEXTA 

330 PLOT0,24» CHR$C53:PL0T2,24,"OIL":PLOT 
25,24,"SCORE" 

340 PLOT0,25,CHR$C03:PL0T2,25, "FALCIATOR 
I RIMASTI " :PL0T25,25, "QUADRO " 

341 M$=RIGHT$CSTR*CLI*3,LENCSTR*CLI*33-1 
3:PL0T21,25,n$ 

350 LE*-RIGHT$CSTR$CLE* 3,LENCSTR*CLE*3 3- 


13 :PLOT 32,25,LE$ 

360 F0R0B=1T0LE**4+6:X=RN0C13*33+3 :Y=RN 
DC13*18+3 

370 PLOTX,Y,"e":NEXTOB:REH 

380 F0RFU=1T0LE**4+8:X=RNDC13*33+3:Y=RND 

CI 3*18 + 3 

390 PLOTX,Y,"_" :NEXTFU 

391 PL0T2,26, "HI-SCORE : ":H$= RIGHT$CSTR 
*CHI*3,LENCSTR$CHI*33-1 3 

392 PL0T11,26,H*:PLOT0,26,CHR*C73 
400 RErt INIZI AL I ZZAZ I ONE 

410 A$="DESTRA":X*=15:Y*=15 :OIL=40 
420 DIE=FALSE 
430 RETURN 

499 REH ISTRUZIONI 

500 PRINT :PRINTCHR*C43JSPCC123"FALCIATRI 
CE" :PRINTCHR$C43 

510 PLOT 1,1,10:PLOT1,2,10 
610 PRINT :PRINT"CONTROLLI" 

620 PRINT:PRINT"’Z* - sinistra >X’ - 

destra " 

625 PRINT 

630 PRINT"’’’ — sopra - sotto 

, 

660 PRINT :PRINT" @ - sasso « - 

f a leiatrice" 

665 PRINT 

680 PRINT" _ - bidoni benzina" 

700 PRINT :PRINT:PRINT:PRINTCHR$( 140 3SPCC 
33"Preml lo spazio per partire" 

710 REPEAT:UNTILKEY$=" " 

720 RETURN 

1300 F0RA=46344T046351 :READB:POKEA,B:NEX 
TA 

1310 DATA63,46,63,29,63,46,63,29 

1320 FORA=46360TO46391 :READB:POKEA,B:NEX 

TA 

1330 DATA63,33,63,33,63,12,12,30 
1340 DATA30,12,12,63,33,63,33,63 









1350 DATA?,5,37,61,61,37,5,7 

1360 DATA56,40,41,47,47,41,40,56 

1370 F0RA=46592T046599 :READ8:POKEA,B:NEX 

Tfì 

1380 DATA12,30,30,31,15,61,61,63 
1500 IFA$="SINISTRA" TKENPLOTX*, Y*, ,, 8." 
1510 IFA$="DESTRA" THENPLOTX*. Tir, “ x " 

1520 IFA$-"SOTTO"THENPLOTX*, Tx, "$" 

1530 IFA$="SOPRA" ThENPLOTXx , T*, "#" 

1540 S$=RIGHT$CSTK$CINTCSC33,LENCSTR$CIN 
T C SC 3 3 3 — 13:PL0T32,24,S$ 

1550 FU$=RIGHTtCSTR$CINTCOIL3 3,LENCSTRfC 

INTCOIL3 3 3- 1 3 

1555 PL0T6,24,FU$+" " 

1560 RETURN 

1999 REM UALUTA L’OSTACOLO 

2000 IFCH*-95THEN0lL=0ILi-2:2AP 

2010 IFCH*=96THENSC-SC-. 1 :OIL*OIL-, 2 
2020 IFCH^---640RCHir=33THENDIE--TRUE =EXPLOD 
E 

2030 RETURN 
2099 REM FINE 


2100 LI*=LI*-1 
2110 PL0T6,24,"0" 

2120 IFOIL> +0THENGOTO2130 

2125 PLAY1,0,2,1000:FORA=12T01STEP-1:MUS 

IC1,3, A, 1 0 : LIA I T3 : NEXT A 

2130 PLAY0,0,0,0 

2140 UAIT300 

2150 IFLI*<0THENGOSUB2300:U=30:RETURN 
2160 U=40:RETURN 

2199 REM NUOUO QUADRO 

2200 PLOT10, 10, "QUADRO "+LE*i-" FALCIATO" 
:PL0T9,10,CHR$ C13 

2205 PL0T25,10,CHR$C43 

2210 F0RA=1T012:MUSIC1,3,A, 10 : DA IT20 :NES 

TA:PLAT0,0,0,0 

2220 LE*=LE*+1:RETURN 

2230 PLAY 1,0,2,1000 

2235 FORA=12T01STEP-1 :MUSIC 1,3,A,10:UAIT 
20 :NEXTA 

2299 REM MORTE 

2300 PLAY 1,0, 2, 1000 :F0KA=12T01STEP.-1 
2305 MUSICI', 3, A, 1 0 :uJAI T20 :NEXTA 
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Dinamite 


Dovete cercare di fare piu punti possibili evitando i teschi, prendendo bandiere e neutralizzando la 
bomba prima che scoppi.... altrimenti perderete una delle tre vite che avete a disposizione. 

Buon divertimento!!! 


CARATTERI GRAFICI 


4000 

4005 


70 

"MO' 

/ "pjp" 

4050 

"AB" 

75 

"EG" 

"FH" 

4100 

"AB" 

100 

"IK" "JL" 

6000 

"EG" 

120 

"AB" 

"CD" 

7010 

"QS" 







i / 




ìóx(EG) lóx(FH) 
"MO" "NP" 
CD" 

CD" 

’FH" 

:rt" 



ì,.l 


1 LET n=0 

2 GO SUB 

3 LET v ». = 

4 LET Xi = 
= ■'321321212 

5 BOftL'tlR 
luti! n PLH 

n • ; _ l 6 

10 POR a =n 
b - 1 7’3 TO 15 
20 DRRU n, 
1,1. DRRU - 
i , 1 DRHU 

30 NEXT b: 
4-0 lET X =1 
50 LET b$ = 
60 FOR a =1 
65 LET P =2 
2*1NT (RNDt 
*15.i LET S 
67 IF R=r 


GO SUB ye3 
Se 3. LET pm=n 
3: LET 1=1 LET pn=D 
”1 1114-331101" : LET y 
16 ” 

-i INh, 1 PhFEk 6 & 

SH n OUtK n; 1NUER5 

TO 24-0 5TEP 16: FOR 
5TEP 6: PLOT a.b 


LET d = C- (6 


RT y 


-13. DRhU 13 
13 ,n: DRflU r. 

13, ri: DRfiL! rt 
NEXT a 
6 LET y=10 
'•fi5Z.xf Lasz.xp l 
TO 1*4- -r5 
*INT lRND*10) 

10) LET q=2*lNT (RN 
=2 *INT (RND*15) 

BND q=S THEN GO TO 6 


n DRRU 
13: DRR 

-13 


LET 


LE 


0 


70 PR1NT RT r,s; 1NK 2; 

; " " ; RT r t 1 , s ; " 1 " 

75 PRINT RT P,q. 1NK O, 

; ‘ - ; RT p + 1 , q, "ÌSC" 

60 NEXT a 
SS FOR t=1 TO 5 
90 LET a =2 + INT lRND*10) 

2 *INT (RND*16) 

100 IF a =y RND b=x THEN GO TO 


PRPER 

PRPER 

LET 


b 

9 


110 PRINT RT a,b, 
•H 1. INK 4-j PRPER 
b; 

115 PRINT RT 20 r 


BRIGHT li FLfl 
n ; ; RT a +1 

INF 3. 


i .f 

116 PHU5E 100 

117 FOR j=i-l TO n 51EP -1 

120 PRINT RT y , x , INk 1; PRPER 
RT y * 1, x , "XT" 

130 PRINT Rr 21,n; "Punti = “;pn; " 


" j H7 21, 13, "MRX - = " , pi» ; HT 21,25; 

" U ITE = " : v t. 

135 PRINT RT 20, j" :: 

14-0 LET 3$ = INKEVt 
ISO FOR C =1 TO le 
155 IF a$ = b$ (C) THE N 
RND C >6) : GO TO 170 
160 NEXT t 

165 NEXT J: GO TO 5e3 
170 IF d > 2 THEN PRINT 
NK 6 ; " " ; RT y +1 , x ; " 

175 LET x =x +2* (d =4-) -2* td = 

7 ' y-y +2 * (d =6) -2 * i d =5 ) 

150 IF d<=2 THEN FOR u=n TO 1: 
FOR V=n TO 1 PRINT RT y+v ,n ; : L 
fcl* q-USR 32084-: LET q = UsR r32000 
+ (4-2 HND d = 1) ) : NEXT V : NEXT u : 
LET .x -X ■*■ ( 2 RND d =2 ) - (2 RND d =11 : 
GO SUE) le 3: LET J = J -1 : IF J THE 
GO TO 135 

185 IF d<=2 THEN GO TO 5e3 
190 GO SUB le 3 
200 LET a=RTTR fy,x) 

205 IF a =54- THEN LET X =X *2 * ( d =3 
/ - 2 * ( d = 4 ) . LET y=M+2* (d =5) -2* (d = 
6) 

GO SUB le 3 
IF a =4-2 THEN 
.005,25 : LET 
IF a >63 THEN 
IF a =4-8 THEN 
LET pn =P O +10 

BEEP .01,112 HND d=6)+(d<>5 
LtT X -y. * l 32 RNL x = - 2 ) - i 32 R 
_32) : LET y=y+v20 RND y =-2) - 
RND y =20) RETURN 


N 


■07 
2 10 
BEEP 
220 
230 
24-0 
250 

j. 000 

MD X 
(20 


BEEP .005 
pn =pn ♦ 14-0 
GO TO 6e 3 
GO TO 7e 3 


30 


4000 CLS 
PRPER 6 


PKLNT HT 


5 0 





4005 LEI b =2 *INT (RND*15) : PRINT 
INK 2, PRPER 5,RT 20,b;"<2",RT 
21,b,” 1" 


23 
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sii :S: !!:: 

I HI i 



4 1^10 PRINT RT li' 0; 



■’ + i'5 RND d=3)+(l 7 «NO d = 4 -.» 
300 NEXT j: GO TQ Se 3 


4 0 15 
4 820 
4 030 
404-0 


PAUSE 100 
POR a =1 TP 250 
PRINT RT 10,n, 


NEXT 3 


13 5TEP 2 


FOR X 


1F INKE'rlO 


RT y +1 
FLASH 1; 


FOR y =n TP 
•ri TP 30 STEP 2 

4 050 PRINT RT y,x;"«";HT y+i,x 

" Tf " 

4 060 FOR a =n TP 1: 

THEN GO TP 4100 
4070 NEXT a 
4-080 PRINT RT y ,x; 

•’ ” ; NEXT x . NEXT 

4053 PRINT RT 10 , n , FLASH 1;" ER 
POPE! ERRORE* ERRORE* ERRORE ! " 
4005 FOR a=255 TP n STEP -5: BEE 
P .01/3 ,'10 : OUT 254 , a . NEXT a 

4 057 F OR 3=1 TP 50; NEXT 3 
4030 RETURN 

4100 PRINT RT y , x, " ; hT y + 1, x ; 

. FPR 3 =y 41 TP 20. PRINT RT 
a . X «T a +1, x ; " It “ : print rt 

a -1 , x ; " : BEEP ,01, a NEXT a 

4110 IF X=b THEN LET PO-pn+4e3-( 

5 0 * y ) PRINT RT 10. n; Flash 1 ; •• 
BONUS ! * BONUS* BONUS! ' BONUS * ! ” 

FOR b=l TP 5: FOR a=30 TP 15 S 


0050 PRINT '-Dovete cere 
are piu puntipossi hi ! i e 
i teschi , prende rido band» 
utraliizando La bomba pr 
scoppi . .altri*ent j perde 
delle tre vite che ave', 
osizione." 

5060 PRINT "Dopo 5 scher 
ungerete il livello 2 . L 
erre veloce.Fermatelo qu 
* r o ••/ a su Ila bandiera ; a 
flSBRRH di 4000 punti." 
8070 PRINT "Od ogni nuov 
diminuisce il tempo a v 
spos izione." 

5080 PRINT '"Buona Fortu 
8200 PRINT «1, FLASH 1 ," 
un tasto per iniziare 


are di f 

vitando 
ere e ne 

ima che 
rete una 
e a d j s p 

mi raggi 
omino c 
andò si 
v r e t e u n 

o quadro 
o s t r a di 

n a ! * » " 
Premi 


8210 

IO 

5220 

0 

8230 
:4 0 


IF 

IF 


INKEY $ < > 
INKEY$ = " 


THEN GO TP 02 
THFN GO TQ 322 


CL5 

PRINT 



TEP 
r b : 
RN 

4 120 
5000 


-1 BEEP 
FOR a =1 


.005,a 
TO SO. 


NEXT a 
NEXT a; 


NEX 

RETU 


GO TO 4083 
PRINT RT 20,n;" ": 

TO 255 STEP 5: BEEP .01 
T 254,3; NEXT a 
5020 GO TO 7020 
6000 PRINT INK n;RT y,x 
y + 1 x ■ 

6005 FOR b = 1 TO 5. FOR a =30 TO 
5 STEP -1; BEEP .005,3. NEXT 3 


FOR a =n 
a/10; OU 


RT 


NEXT 
60 10 
c-025 
6027 
6030 
1 = 1+1 
c-035 GO 
604 0 G O 


b 

LE T pn=pn +le 3 

LET X =x +2- (4 RND X =301 

PAUSE 50 

NEXT t; LET 1 = 1 -(i>14J 


SUB 4e 3 
TO 5 


LET 


F L i *3- • rt 

ff 1c1 le" 

8245 PRINT RT 6 , n ; " » Ak Ak * 

&5KBR ,RT 12,4, 'H = SINI5TRfl K? 

= DE51 RA",AT 14,4,' S- ALIO 

W -6R550" 

824 7 PPINT RT 16,7, ' B^SCROLL SIN 
ISTRA";RT 18,7;"H-5CPOLL DESTRO" 
8250 LET R $ = INKEY $ : IF R*<"0" OR 
P$>"9" THEN GO TO 8250 
8260 LET i =32-2*(URL a «> 

8270 RETURN 

9000 RESTORE 9050: FOR 3=USR "a" 
TO USA "t"+7 : RERD b; POKE a,b: 
NEXT a 

9010 RESTORE 9100; FOR a=32000 T 
O 32138 RERD b: POKE 3,b; NEXT 
a 

9030 RETURN 

9050 DRTR 15,79,63,9,11,30,60,63 









COMMODORE VIC-20 


\ / 



Il 11 1 

:::::: S RsP II: 


Blaek Jatk 


Se siete deqli inguaribili giocatori di carte e vi piace rischiare, non direte certamente 'NO' ad uno parti¬ 
ta di BLACK JACK. 

Il computer tiene il Banco, ed una volta che avrete inserito la puntata, vi distribuirà le carte. 

Come sicuramente sapete, dovete cercare di avvicinarvi il piu possibile a 21, senza sballare, ovviamente. 
Se intendete mantenere le carte che avete premete il tasto "B", se invece ritenete di chiederne altre pre¬ 
mete il tasto "A". 

Avete vinto??? Complimenti!!! 

Se volete ancora rischiare per raddoppiare la vincita premete il tasto "D".... e Buona Fortuna!! 


STRUTTURA 

100 - 150 inizializzazione 

test verifica 'bancarotta' 
distribuzione prima carta 
Richiesta somma da puntare 
test verifica punteggio 
richiesta eventuale altra carta 
INPUT: se "A" distribuzione altra carta 
INPUT: se "B" il computer scopre le sue carte 
test per vincitore 
richiesta per nuova partita 
preparazione per nuova partita 


160 

180-210 

220 

240 - 250 
290 - 300 
340 - 360 
410-480 
640 - 740 
750 - 760 
770 


VARIABILI 

A$ = array delle carte (A, 2, 3,... J, Q, K) 
M=somma posseduta inzialmente 
CV=valore totale delle carte del computer 
PV=valore totale delle carte del giocatore 
NC=numero delle carte del computer 
NP=numero delle carte del giocatore 
B=ammontare della somma puntata 
C=prossima carta 
CO°/o=carta computer 
P%=carta giocatore 

r°/n=nnmftrn delle carte oer ciascun valore 
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Navi 


Neve 

Svelti... di corsa a casa appena usciti da scuola... 
ve... potreste prendervi un brutto raffreddore. 


sta nevicando!!! Attenzione ad evitare i fiocchi di ne- 


ISTRUZIONI 

TASTI:5=sinistra 
8=destra 


1 REM NEOE 
IO LET R = ll 
20 LET 5=0 

30 PRINT RT 21.INT lRNDtó6.» ; " » 
***•• 

4-0 PRINT RT 

50 IF PEEK (PEEK 1&393^£56«PEE 
K 16399J=23 THEN GOTO 120 


60 

PRINT ,, U'* 



70 

SCROLL 



60 

IF INKEV $ = "5" THEN 

LET 

R=R- 

=»0 

IF INKEY*=“S-‘ THEN 

LET 

R=R> 

100 

LET S=S+10 



110 

GOTO 30 



120 

PRINT RT 0 y 0; S 




Attraverso il periscopio del sottomarino sono state avvistate all'orizzonte due navi nemiche. Il tempo a 
disposizione è ridotto: l'azione dovrà essere la piu rapida possibile!!! 


ISTRUZIONI 

TASTI :8=destra 
7=alto 

0=stop del tempo 


1 REM 
5 REM 
10 LET 
15 LET 
20 LET 


NRU I 
-lag)- 
R = 10 
T = 1 10 
C = INT 


30 PRINT 


iRND *-6 +5 ) 
RT 10,2; 1 
, RT 10.. C.; 

_; RT 19.. l; 

4 0 LET R = 1 
50 LET 6 = 2© 

60 PRINT RT 0.0 . T ; *' 

• ” ; RT B +1 , R11 ; " " 

70 IF INKEY S = ” 7 " ANO 
LET BsB-1 

60 IF INKEV $ = ' ©•• RND 
THEN LET R=R+1 
IF INhEV$="0" THEN 
LET T =T —1 

IF B=9 THEN GOTO 140 
IF T < 0 THEN GOTO 160 
GOTO 60 

PRINT RT 10 . R . "whk" 
GOTO 40 
PRINT RT 19.. 


> 10 
90 
100 
110 
120 
130 
140 
150 
160 


RT 10 . C 


; RT 6 R.. 
R > £ THEN 
R < ££ RNC. 
STOP 


(?7 
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Marzianetti 


....ancora una volta dobbiamo difenderci dall'avanzata inesorabile degli invasori 

ISTRUZIONI 

TASTI : I = sinistra 
3=destra 
0=laser 


5 

REM 

6 1 

10 

REM 

"E" 

15 

LET 

5=PI-PI 

20 

LET 

R sUflL "12“ 

25 

LET 

B=PI-PI 

30 

LET 

C=URL "3" 

35 

CL 5 


40 

LET 

T = 5 

45 

LET 

o = 6 tURL "2" 

50 

IF 

E=URL "16" THEN 


MS 


H IT ò " , X 
55 LET flS=” 

60 LET B$ = M 


sm, s 


65 PRINT RT URL " 16 “ , R-URL. "2" 


70 PRINT RT fe.CjH* 

75 LET T=T+SGN PI 

30 IF T=URL “ 50 " THEN GOTO URL 

"35" 

65 IF INKEY*= "0" THEN GOTO URL 
•* 1 15" 

90 LET G=RNDtURL "3" 

95 LET R=RflINKEV»="3")-IINKEY 

* = "1 ") 

100 PRINT RT B.C,5* 

105 LET CsCt((G>sl.5) RND C<URL 
"7" ) - ( (G < 1.5) RND OÒUN PI) 

110 GOTO URL "65" 

115 PRINT RT B.R;"*" 

120 IF R$( (R-C) +5GN PI)<>"i|" TH 
EH GOTO URL "65" 

125 LET TO fl-C+2)=" 

130 LET E$(R-C TO R-C+2)=" 

135 PRINT RT B.R-6GN PI;"***" 

14.0 LET 5=S+SGN PI 
145 IF R*=" 

" THEN GOTO URL "55" 

150 GOTO URL ”65" 


Kong 


Un gorilla infuriato vi impedisce di avvicinarvi alla scatola vicina a lui , facendovi rotolare contro dei 
grossi tronchi. 

Dovete raggiungere la scatola il maggior numero di volte possibile e nel minor tempo. 


ISTRUZIONI 

Usare il tasto cursore 7 



1 REM KONG 
10 LET S=NOT PI 

20 PRINT "PUNTI", RT URL "2" ..UÀ 
L "2" ; "D" ; TRB NOT pi; " JKtBL ";TAB 
NOT P I ; 1 “ ■ TT ■ ” TRB URL "" 1 " ; ", 


0 


30 

LE^EJ=UR^^3 1 " 



40 

LET X=URL "6" 


" 6 “ ; s 

60 

PRINT RT NOT PI,URL 

70 

LET T =NGT PI 



100 

PRINT RT 5,B, " 



110 

IF B=7 THEN GOTO 

300 

120 

LET X =X ♦ 1 



130 

IF INKEY*="7" THEN 

GOSUB 20 

140 

PRINT RT 5 , B.; "R", 

; RT 

5.. X.; “ O 

150 

LET T=T+1 


RT 5,31, 

160 

IF X =30 THEN PRINT 

170 

IF X =30 THEN LET 

X = 

S 

1©0 

IF B=X*1 THEN 5TOP 


190 

GOTO 100 



220 

PRINT RT 4,B;"R" 



230 

LET B=B-1 



240 

PRINT RT 4,B + 1J 

%• 


270 

RETURN 



300 

LET S = 5 4-URL "40" 

-T 


310 

PRINT RT 5,X + l;" 

11 


320 

GOTO URL “30" 




BB 











:niH: iSS- 
Ì5 
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Othello 


Questo programma, ispirato ai molti OTHELLO (o REVERSI) già adattati peri vari Home e Personal Com¬ 
puter, permette di giocare "realmente" contro il VIC. 

Le regole sono quelle del classico gioco da tavolo: bisogna cercare di intrappolare fra le proprie quante 
piu possibili pedine avversarie. 

Da notare che il gioco è dato dalla fusione di due listati, elaborati appositamente in sequenza per poter 
realizzare sul video la "scacchiera" ottenuta dalla modifica dei caratteri di base del VIC. 

Per giocare basta digitare il numero corrispondente alla casella nella quale si desidera posizionare la pro¬ 
pria pedina. 


1 FRI NT "ri" 

I @ P0KE51 255 ' P0KE52,24 : P0KE55, 255 •* P0KE56 .• 24 PF: I NT " ATTENDERE PREGO " 

II PORI=070128*8 :P0KE6144+1,PEEK<32768+1>:NEKT 
20 FORR=0T0<56*8 )-l- READN : POKE6608+R,N : NEKT 

30 DATA38,105,163,41,41,41,38,0,34,102,170,34,34,34,34,0,36,106,162,36,40,40,46, 
0 

40 DATA44,38,162,36,34,34,44,0,40,104,168,42,47,34,34,0,46,104,168,44,34,34,44,8 
50 DATA34,188,168,46,41,41,38,8,46,98,162,36,40,48,40,8,38, 185,169,39,33,33,46,8 
68 DATA78,. 163,41,73,137,137,230,8,66,166,42,66,138,138,226,8,68,178,34,68,136,13 
6•238•0 

70 t fifiTR68, 178,34,68,130,138,228,0,72,168,48,74,143,130,226,8,78,168,40,76,138,13 
0,236,0 

88 DATA66,164,40,78,137,137,230,0,68,170,42,68,138,138,228,0,70,169,41,71,129,12 
9,238,8 

90 DATA 198, 41,41,73,41,41,198,0,194,38,42,66,34,34,194,0,196,42,34,66,36,40,206, 
0 

180 DATA204,34,34,68,34,34,204,8,288,48,48,74,47,34,194,0,206,48,40,76,34,34,284 
,8 

118 DATA286, 34,34,68,48,48,208,0,196,42,42,68,42,42,196,8,198,41,41,71,33,33,286 
,8 

128 DATA 134, 137,137,169,233,41,38,8,130,134,138,162,226,34,34,0,132,138,130,164, 

232,40 

121 DATA46 

138 DATA8, 148, 130,138,164,226,34,46 ; 8, '136, 136,136,170,239,34,34,0, 138, 132,136,17 
4,233,41 

140 DATA38,8,142,130,130,164,232,40,48,8,132,138,133,164,234,42,36,8,134,137,137 
,167,225 

158 DATA33,38,0,238,137,137,281,41,41,198,8,226,134,138, 194,34,34,194,8,228,138, 
138,196 

160 DATA48,48,286,8,236,138,130,196,34,34,284,8,238,136,136,284,34,34,284,8,226, 
132,136 

178 DATA286,41,41,198,0,238,130,130,196,40,40,200,0,228,138,138,196,42,42,196,8 
180 DATA230,137,137,199,33,33,198,0,38,73,137,201,169,169,78,8,34,70,138,194,162 
,162,66 

198 DATA8,36,74,130,196,168,168,78,0,48,72,136,282,173,162,66,8,46,72,136,284,16 
2,162,76 

280 DATA0, 34,68,136,206,169,169,78,0,46,66,138,196,168,168,72,0,36,74,138,196,17 
8,170,68 

218 DATA©, 38,73,137,199,161,161,78,8,238,41,41,73,137,137,134,8,226,38,42,66,138 
,130,138 
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215 DfìTfìQ 

216 FCRfì=0TO216 : P0KE6144+A,PEEK<32768+fl)=NEXT 

217 W=6520 

218 FORfi=0T07:RERBC:POKEW+fì,C:NEXT 

219 DRTR0,60,126,126,126,60,0,0 

220 PRINT"n" : P0KE36879,93 

228 PR I NT " IWPWWlPlfllPKflillBItì" 

229 PRINT" 33 ■" 

230 PRINT" aa OTHELLO 1" 

231 print" aia ■" 

250 PRINT"iS&®!r : PRINT "LGRDTTT' : P0KE631,131 : P0KE198,1 ■ END 



13 PR INT "3" : P0KE36879,93 : PR I NT " a" ; 

15 PRINT"1 234567 8" PRINT 

16 P0KE36869,254 

17 K=1 

19 FORI =58T063 •' PR I NTCHRf < I > ; " " ; : K=K+1 : NEXT 
21 F0RI=96T0127 
23 PRINTCHR$< I ) ;" 

25 IFK=8THENPRINT"W":K=0 
27 K>K+1 
29 NEXT 

31 FORI=160TO177 
33 PRINTCHRf<I>;" "; 

35 IFK=8THENPRINT"ffl":K=0 
37 K=K+1 
40 NEXT 

100 li I NE < 72 > : GOSUB520 

105 PR I NT " WWPlPlPMFKURItìPMPlPlKKUPlin" 

110 INPUT"CHI INIZIA";2$:PRINT H n 

120 I FZ$= " IO " THENPRI NT " 7Ì : G0T0320 

140 GGSUB590 

150 R=-l:R=0-1=72 ; F=0 

160 I = INT <I~1) 

170 IFI=0THEN270 
180 IFECI >O0THEN160 
190 RESTORE•F0RS=1T08 
200 RERDQ 


30 
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210 GOSUB410 
220 NEXT 

230 IFF=1THEN300 

240 IFI-1 NT<I)<=fi-1NT(R>THEN160 

250 R=I 

260 GOTO160 

270 IFR=0THENFOKE36879,25•FORT=0TO1500•NEXT■P0KE36879,93 :GOTO330 

280 F=1: I = INT(R> £(I)=-2 

290 GOTO190 

300 IFR=-2GOTO140 

310 PRI NT " jOtìfiBlPluraPIfiilPlPlPli ' I 

320 GOSUB590 

330 PRI NT M KPlFWPIiflWlPWPlPlPlfi" ; 

331 PRINT •• INPUT" X' " ; I : IFB < I >=-1GRB< I >=-2THENPRINT"TT ; : G0T0331 
340 IFI =0THENPR I NT "SSUPlCW" : GOTO 150 

350 R=-2 •' B< I >=-l : F=1 
360 GOTO190 
370 D=D-Q 
380 B(D>=-3-B'' B> 

390 IFDOI+QTHEN370 
400 RETURN 
410 H=INT<I+Q> 

420 IFI«=00RD>71THENRETURN 
430 IFE ( B >ORTHENRETURN 
440 H=H+Q 

450 I FIO 71ORDO0THENRETIJRN 
460 I FB < B > >=0THENRETIJRN 
470 IFB(D>=RGOTO440 
480 IFF=1THEN370 

490 1 = 1 + 6RBS<CI NT /Qj- 1>/100 

500 RETURN 

52G M0SSR=-1 

530 FORJ=0TO63STEF'9 

540 B < J> = 1 

545 NEXT.J 

550 B<32)=-2 : B<40>=-2 
560 B C 31 ;• =-1 : B < 41 >=-1 
570 RETURN 

590 :MIE=0 TUE=0 : MOSSfl=MOSSfl+1 
600 R=7702•1=0 B=38422 
605 F0RK-1T08 

610 IFB (. K+1 >=-2THENF’0KER+ (.Y -1 >#2.• 47 : P0KEB+<K-1 >#2,0 : MIE=MIE+1 
620 I FB (K+1 )=-1THENPOKER+ < K-1 )*2.■ 47 ' P0KEB+ <K-1 >#2, 1 : TUE=TUE+1 
625 NEXT 

630 IFI=63THEN670 
640 1=1+9:fi=R+44:B=B+44 


650 GOTO605 

670 PRINT ,, ^IP>M»»»»»»»»»»»»»B / ";RIGHTf (" "+STRt<MIE> , 2) 
680 PRINT":e!»»»»»»»Ì»»»»|al'- " ; RIGHT$< " "+STRT6TUE> .• 2> 


685 IFM0SSR>59THEN1000 
690 RETURN 

700 DRTR-10,-9,-8,-1,1,8,9,10 

1000 PR I NT " nmtimmm." ■ P0KE36S78, 15 : P0KE36869, 240 
1010 IF MIE > T U E T H E N15 0 0 

1020 PRINT" HRI VINTO TU" 

1021 FORI=0TO250:P0KE36875,170 :NEXT:P0KE36875,O 
1040 END 

1500 PRINT" HO VINTO IO" 

1509 R=36876 

1510 FOR I = 15TO0STEP-1 :P0KE36878,I : POKER, 190■FORT=1TO100 :NEXT: POKER,0'NEXT: POKER, 
0 : END 


31 
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Extra-terrestre 


Un piccolo extra-terrestre è stato abbandonato dai suoi compagni di viaggio. Per comunicare con loro 
l'unico modo è ritrovare le tre parti di un telefono rosso smarrito su un terreno pieno di buche.... 

Non è tutto!! Se siete curiosi, il resto delle istruzioni è contenuto nel listato. 

Per evitare dubbi sulla interpretazione dei caratteri grafici è riportata di seguito una tabella con indicati il 
numero di linea (come riferimento) e il carattere da digitare nel modo G (grafico) per ottenerli. 

EXTRA-TERRESTRE 

TABELLA CARATTERI GRAFICI DEFINITI DALL'UTENTE 



210 

"G" 

860 

"O", "P" 

1270 

"B", 

• 

230 

"H", "F" 

970 

//^// 

1320 

"H", 


300 

//|// 

980 

i/p// 

1350 

//p// 

% 

320 

"J" 

990 

"H” 

1370 

"H" 


440 

"A", "J" 

1060 

"E", "H", "F" 

1430 

"G" 


510 

"b", "A", "D", "C" 

1080 

"B", "A"’ 

1540 

"b", 


710 

"B", "A" 

1140 

"B", "A" 

1550 

"b", 


800 

"B", "A" 

1170 

“b", "A" 

1700 

"J" 

• 

840 

"B", "A" 






240 LET p = INT IRNDH8) *2: LET O 
: INT (RND*27) +2: IP RTTR (p,0)0 
>2 THEN 60 TO 24-0 

250 IP p=q OR o=* THEN GO TO 24 

260 RESTORE 14-50: FOR f =1 TO 7: 
READ a,b: BEEP a,b: NEXT f 

TF = l THEN PRINT FfT X - « i l 


10 REM 
20 REM 
30 REM 
4-0 REM 
50 REM 
60 REM 


EXTRR-TERRESTRE 


70 GO TO 1610 

fi ^ 5 SUB pè!S? PT 

LIUELLO DI DIFFICOLTO"?.; TOB 

10; "H = 15 buche;TRB 10;"B » 
20 buche"'';TRB 10 ; "B « 25 buche 

•• : INPUT di f 

100 IF di f <1 OR dif>3 THEN GO T 
O 90 

110 LET bdc=dir*5+10 
12 0 CLS PRINT RT 10,6; 


e =0: LET do 1=0: LET do 
LET te le f =20: LET /iori>5 


PRPER 4-: INK 7: C 
LET e n■ 


lC=60. 

0 

14-0 GO SUB 4-4-0 
150 BORDER 
LS 

160 LET fi =0: LET ex=l: 

600. LET X =11: LET y =31 
170 LET p =INT (RND418) +2: LET O 
= INT CRNDtóB) 4-2: DIM albUC): DIN 
b(bUC) 

160 FOR f=l TO bue 

190 LET a (f) =INT IRHDH8) +4: LE 
T b(f)=INT (RNDt30)+1 
200 IF RTTR (a (f > ,b(f > ) < >39 THE 
N GO TO 190 _ „ „ .. 

210 PRINT RT a (f) ,b ( f); INK 0;* 
#”: NEXT f 

220 LET q=INT (RND*16)+2: LET « 
=INT (RND*27)+2: IF RTTR Cq,W)»3 
2 THEN GO TO 220 

230 FOR f=0 TO 2- PRINT RT f.0; 
ink 

"ENERGIA: **; RT 1,20; "9: 

RT 1,26; 


33 















Z — 

f SI 

N 

CI 

LAI 

R ZX-SPECTRUM 48K 


% <1> ;«T X-1,y, l * (2.» : GO TO 300 
280 IP ex =0 THEN primt RT x,y;r 
*(1);RT x-l,y, r $(2) 

290 IP INKEY * = " a ** THEN LET f i *1 
BEEP .2,-20: LET en-en-5 
300 IP (q+l=X OR q-l=X OR q+2=X 
OR x=q) fìND (w=y OR «=y+l OR W = 
y-1) THEN PRIMT RT 1,16; PAPER S 

• * * Jjffil * * 

310 IP q=X RND w=y RNO f i =1 RND 
te>2 THEN GO TO 620 

320 PRINT RT 1,16; PRPER 6;** ** : 
IF (p =X OR P +1 =X OR p-l=X) RND 
(y*o OR y+l =0 OR y-l=o) THEN PRI 
NT RT 1,16; PRPER 5;: IF fi*1 
THEN BEEP .3,-20: LET en =en-5 : 
IP dOl>0 THEN LET dol=dOl-l: LET 
en=ent2B: PRINT RT 1,28; PRPER 
5; do i 

330 IF fi=l RND dot>6 THEN LET 
doUdOl-7: LET tfiate+1: BEEP .2, 
10: PRINT RT 1,28, PRPER 5;do l;fi 
T 1,22,te 

340 LET f i=0. IF INKEY *=•■»■• RND 
y<31 THEN LET en=en-l. PRINT RT 
x , y ; ** m ;rt x-l,y," " : LET ysytl 
: LET ex =0 

350 IF INKEY*="n" RND y>0 THEN 
LET en=en-l: PRINT RT x,y," -,RT 
x-l,y;“ ": LET y=y-i LET ex = 1 
360 IF INKEY * = "q " RND X <21 THEN 
LET en =en-1: PRINT RT x , y ; " “;R 
T x-l,y;“ •*: LET X=X+1 
370 IF INKEY $ = " 1 “ RND X >4- THEN 
LET en =en - l : PRINT RT x , y ; ** ”;RT 
X-l,y," •*: LET X=X-1 

380 PRINT RT 1,9, PRPER 5;" 

“;RT 1,9, PRPER 5;INT en: IF R 
TTR (x,y)=32 OR RTTR (X-l,y)=32 
THEN GO SUB 94-0 

390 BEEP .002,en/20: IF en<1 TH 
EN GO TO 14-80 

400 IF INKEY* ="a" THEN BEEP .2, 
-20: LET en=en-5: LET fisi 
4-10 GO TO 270 
4-20 GO TO 1230 

4-30 STOP _ _ 

4-4-0 FOR f*U5R "T* TO USR "e"+7 
4-50 RERD a : POKE f , a : NEXT f 
4.60 DRTR 62,127,127,127,14- ,6,6, 
14- , 30,62,62,62,30, 10,10,21 
4-70 DRTR 124. , 254- ,254,124,112,96 
,96,112,120,124,124,124,120,60,8 
0,168 

480 DRTR 165,66,165,24,126,60,2 
4.24.0.0.8,93,127,93,8,0 
490 DRTR 0,16,62,126,255,126,12 
4,B,255,219,24,36,126,255,255,10 
2 

500 DRTR 254,146,146,254,146,14 
6,254,0,0,60,66,219,219,66,60,0 
510 DIM r| 12,1) : DIH l$(2,l) : L 
ET l*Cl)=-f": LET l*C2)="T*- LET 
r*Cl)="f": LET f*C2)s"f“ 

520 DIM h(15) 

530 FOR f=l TO 3 

540 LET d =INT (RND*15)+1: IF hC 
d) <>0 THEN GO TO 540 
550 LET h(d)=telef: NEXT f 
560 FOR f=l TO 9 

570 LET 9 = INT (RNDH5) +1: IF h( 
9 ) < > 0 THEN GO TO 570 
580 LET h Cg) =dOlC: NEXT f 
590 LET f sINT (RNDflB) +1: IF h< 
r) < >0 THEN GO TO 590 
600 LET h CD =fiOfi 
610 RETURN 

620 REM # salvataggio * 

630 BORDER 1: PRPER I: CLS 
640 LET y =12 
650 DIM ft 8(4,3) 

660 REM grafica aontagne 
670 RESTORE 690: CIRCLE 30,165, 
5: PLOT 0,70 

680 FOR *=1 TO 26: RERD a,b: OR 
RLI 3 , b : NEXT X 

690 DRTR 18,49,8,-10,10,16,8,-1 
6,5,8,14,-24,6,16,17,-40,26,0,16 
,54,10,-16,14,24,8,-12,4,5,12,-2 
0,4,10,12,-26,8,20,10,-30,6,6,4, 
-10,10,30,5,-12,5,4,15,-30,-255, 
@ 


700 DIM S * (4,3) 

710 PRINT RT 16, y, INK 7;" I";«T 
15, y ; "J" 

720 FOR f=l TO 6: BEEP .1,30: r 
OR 9=1 TO 100: NEXT g. NEXT f 
730 LET S$(1) =CHR % 132tCHR* 140 
♦ CHR* 136. LET S*(2)»CHR$ 133+CH 
R| 128+CHR* 136. LET S*(3)=S*C2) 

: LET £«(4)=CMR* 139+CHR* 131+CH 
R* 135 

740 FOR f =4 TO 17 

750 IF INKEY $<>"** THEN GO TO 14 
60 

760 BEEP .35,-30 BEEP .15,-32 
770 IF INKEY*<>“" THEN GO TO 14 
60 

780 PRINT RT f-4,y-l," 

790 FOR h=0 TO 3: PRINT RT f-h , 
y-1; INK 6;s*(4-h): NEXT h: NEXT 
f 

800 PRINT RT 16,y, INK 7;"f';fiT 
15 , y , 

810 BEEP 1,20 

620 PRINT RT 17,y-1,” 

830 FOR f- 16 TO 3 STEP -1 
840 FOR h=0 TO 3: PRINT RT f-h , 
y-1; INK 2, BRIGHT l,S$(4-h): NE 
XT h: PRINT RT f-l,y, INK 7;"f"; 
RT f-2,y; : BEEP .35,-30: BEEP 
.15,-32: PRINT RT f,y-l;” ”: 

NEXT f 

850 FOR h = 3 TO 0 STEP -1: PRINT 
RT h, 11 ; " ”: PRUSE 5: NEXT h: 

RESTORE 670: PRUSE 50 
860 F OR h=U5R TO USR ”^”+7: 

RERD a: POKE h,a: : NEXT h 
870 DRTR 3.12.8,31,127,237,255, 
96,192,48,16,248,254,163,255,6 
880 LET y=2: FOR X=0 TO 29: PRI 
NT INK 7; RT y,x," A'*- PRUSE 3: 
NEXT X: PRINT RT y ,X ; " 

890 PRUSE 100: CLS : 

,7;"CONGRATULAZIONI » 

E SRLURTQ L'EXTRATERRESTRE",AT 1 

6,1; "PREMERE :. B PER RICOM 

INC IRRE . B PER <FINE DEL G 

IOCO)” 

900 PRUSE 50: RESTORE 1450: FOR 
f=l TO 7: RERD a,b: BEEP a,b: N 
EXT f 

910 IF INKEY * = ” S” THEN CLS : PR 

int rt ìe.ie/'BHiKii": GO T 

O 915 

920 IF INKEY *= " r " THEN RUN 

930 GO TO 910 

940 REM t b oche *■ 

950 FOR g=l TO 15 IF (x=atg) O 
R x -1=a (g) ) RND y=b(g) THEN GO T 
O 970 

960 NEXT g: GO TO 1000 
970 IF hC9)sfiori THEN LET P* = ” 
¥** : LET tot =60: GO TO 1010 
980 IF hig)=dOlC THEN LET p* = "*# 
“: LET tot=20 GO TO 1010 
990 IF h (g) =te le f THEN LET p* = “ 
35": LET tot =30: GO TO 1010 
1000 LET tot =0 : LET p* = " " 

1010 PRPER 5: INK 0. BORDER 0: C 
LS 

1020 LET h <g) =0 

1030 FOR g =0 TO 16 PRINT RT g,0 
; “■*’ ; TRB 31; "I" : NEXT g FOR 3=1 
7 Tri 21 PRTNT RT o , 0 

4,1; 28," 

";RT 5, l; "Pi" TRB 29, RT 

,-»";TRB 30;"*",RT 16,1; "J|"; TRB 

30; ; 

1040 PRINT RT 14,1;"l";TRB 30;“■ 
", AT 15,1, 'WJTR B 2 9;"—";ftT 16 

, i ; "MB" ; TRB 28; "1- 

1050 FOR q =0 TO 3 PRINT RT g , 0, 


PRINT RT 5 
■. RUET 



fXT g 

1060 PRINT RT 16,10, INK 4*(p*«" 

¥") +2* (P * = " 5 " ) + (p * = "♦") ; p « 

1070 FOR f =5 TO 16 

1080 PRINT RT f,20; INK 7;"I",«T 
f -1,20; "T*, RT f-2,20, " " 

1090 BEEP .1,40-f 
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1100 NEXT f 

1110 LET »= 20 

1120 PRINT AT 16,»;" 


";RT 15, 


1130 LET en=en-l: IF en<0 THEN G 
□ TO 14-80: IF p$ = ” " THEN GO TO 

1200 

114-0 IF p$ = " " THEN PRINT RT 16, 

a, INK 7;"r;flT 15,a;”*": for f = 

1 TO 4-0: NEXT f GO TO 1200 
1160 LET « =■ + t INKEY$ = "a ** AND m <Sk 
8 ) - ( INKEY * = " n “ RND «>4-) 

1160 BEEP .06,30 

11V0 PRINT RT 16,•; INK 7;"1",RT 

15,a; 

1180 IF «=10 THEN LET en=en+tot: 

BEEP l,(Ot: GO TO 1200 
1190 GO TO 1120 
1200 LET U =16 

1210 IF INKEY*<>”a" THEN GO TO 1 
210 

1220 LET en =en-5 

1230 PRINT RT u,a;" " ; AT u -1, * ; 

: BEEP .06,30 

124-0 LET en =en - 1.5 : IF en <0 THEN 
GO TO 14-80 

1250 LET u=U+(INKEY*="q" RND U>1 
6) - (INKEY * = “1") 

1260 IF INKEY*/.'"!" THEN LET U=-U 
+1: IF U>16 THEN LET u=16 

1270 PRINT RT U,tt; INK 7;"1";AT 
u -1 , a , "T* 

1280 IF u=3 THEN GO TO 1300 
1290 GO TO 1230 

1300 PRINT RT U , fi* ; “ ”,RT u-l,a;" 
": FOR f=-10 TO 20. BEEP .01,/; 
NEXT f 

1310 BORDER 4- PAPER 4-: INK 7; C 
LS : GO SUB 14-10 
1320 FOR f 0 TO 

__ 

PAPER 5, •' ENERGIA : " , INT e n ; RT 1, 
20j “ , RT 1,26, “— " 

1330 IF RTTR (X,y)=32 THEN LET X 
= X+1: GO TO 1330 

134.0 LET X = INT (RNDil?) +5: LET y 
= INT C RND *31) +1 IF RTTR (x,y ) =3 

2 THEN GO TO 134-0 

1350 IF a =10 RND p* = "*." THEN LET 

dol=dOl+l 

1360 PRINT RT 1,28, 

IF P*="5" THEN 
PRINT RT 1,22, 

RETURN 
STOP 

REM * buche * 

FOR f=l TO bue 

PRINT RT INK 0; 

NEXT f 


INK 5 




1370 
1380 
1390 
1400 
14 10 
1420 
1430 

1440 

1450 

o -7 

• 

1460 

-2,7 

1470 

14-80 

1490 

1500 


PAPER 5; do l 
LET t e = te +1 
PAPER 5,te 


1 . 2 , 12 ,- 2,10 


2,9, 


1.2,12,.2,10,.2,9 


extraterrestre* 


PURTROPPO 

PER MANCA 


RETURN 
DATA 1,5 
8,9,1,5 
DATA 1,5 
. 8,9,1,5 
RETURN 
REM *aor te 
CLS 

PRINT RT 1.0 
L'EXTRATERRESTRE” 

NZR DI ENERGIA E. 

..MORTO..'!” 

1510 IF dot>5 THEN PRINT '" 

PERO' CON UN DOLCE SAPORE . 

IN BOCCA.. ..ERA RIUS 

CITO R RACCOGLIERE. BEN ” ; D 

OL," CARAMELLE” 

1520 RESTORE 1450: FOR f =1 TO 7: 
READ a,b: BEEP a,b. NEXT f: FOR 
f=l TO 50: NEXT f 

1530 PRINT ' ' "PREMERE :.PER 

"H PER (FINE 


GIOCARE DI NUOUO" 

DEL GIOCO >" 

1540 PRINT AT 16,y, INK 7;“f 

1550 y pRINT AT 16,y; INK 2;"I‘ 
15, y.; 


AT 

AT 


1560 

CLS 

«70 

1S80 

1590 

1600 

1610 

LS 

1620 

1630 

1640 


IF INKEY *_=_H 
AT 10,10; 


PAUSE 0 
. PRINT 
STOP 

IF INKEY * = " r ’* 
BEEP .1,0 
GO TO 9045 
REM ISTRUZIONI 
PAPER 1: BORDER 


THEN 


THEN RUN 


INK 7 : 1 

ISTRUZIONI" 


Un p 
stato 
pagri i 
Per coaunicare 
co nodo eTitrov 
ti di un telefon 
to su un terreno 
che " 

Per e f f e t 
tre ad ave 
f ono,s ara' 
colto alle 


4 , l; 


PRINT AT 0,10, 

GO SUB 1780 
PRINT OUER 1;AT 5,1; 
iccoio extraterrestre e ' 
abbandonato dai suoi eoa 
di viaggio."'' 
con toro 1 'uni 
are te tre par 
o rosso saarri 
Pieno di bu- 
1650 PRINT ' OUER 1; 
tuare la chia»ata,ol 
r recuperato il tele 
necessario avere rac 
no un fiore." 

1660 GO SUB 1770 
1670 PRINT OUER 1;AT 
orante la ricerca avrete 
7 o piu ' cacarne 1 le,gueste 
no essere trasformate in 
GIÀ'',necessaria alla so 
venza del piccolo extra- 
ire." 

1680 PRINT OUER 1;**" Sui lerr 
eno sono aiaetizzate due zone,o 
gnuna formata da' 9' quadratini 

(3x33. un siaboio laapeggian 

te nella parte alta dello scher 
bo segna lera' i l vostro passa) 
io.'* 

690 GO SUB 1770 
1700 PRINT OUER 1;AT 3,1; 
l siaboio e' « avete La 
ilita' di irasfonare in 
A ogni singola caraaella 

Se il siabolo e' 
nella zona ideale 
la chiaaata della 
usa te il tas to 8 
all'interno di qu 
che' non avrete t 
ta posizione." 

Pe r calar 


' Se d 
preso 
po tran 
' EN ER 
pravvi 
terrea 


? 


eie con voi"' 

A3 vi trovate 
per tentare 
as t ronave . 
e spostatevi 
està z on a fin 
rovato l 'esat 
1710 PRINT ' OUER 1, 
Si nelle buche baste 
xtraterrestre passi 
sse; per uscirne pre 
il tasto B poi il 
1720 GO SUB 1770 
1730 PRINT OUER 1,AT 


‘ Se i 
possib 
ENERGI 
che a v 


ra' che l'e 
sopra ad e 
mere prima 
tasto H. ** 


3,3; 


>UD «= 8. ou 

EST = m . EST = a* 

1740 PRINT FLASH 1,AT 18,2;" ANC 
ORA LE ISTRUZIONI?(S/N)" 

1750 PAUSE 0 IF INKEY * = " S" OR X 
NKEY * = “S" THEN GO TO 1600 
1760 OUER 0: GO TO 90 
1770 PAUSE 0: CLS 

1780 PLOT 0,0: DRAU 0,166: DRAU 
255,0. DRAU 0,-166. PLOT 4,10; D 
RAU 0,152: DRAU 247,0: DRAU 0,-1 
53: DRAU -247,0 

1790 PRINT PAPER 6, INK 0,AT 21, 
0; ” premi un qualsiasi tasto 

1800 RETURN 

1810 BORDER 5: PAPER 5: CLS 
1820 INK 1 PR INT AT 5,6, "I 

. fì t r ~T ‘;iAB b, r 


1830 PRINT TRE- 
■ ”,TAB 6;'T 
6 ; "■ 


■";TAB 
I" ; TAB 6; “■ 


1840 PRINT T AB fi ."M 

S " ; tab s -mmtmmmmm 

,7,"by Siaeone 1963" 
1850 PAUSE 200. GO TO 80 


I" ; AT 


3V 









Ag advert a Reggio E. 


DIQITEK 

MA SCELTO BENE. 


SCEGLI BENE ANCHE TU. 



MPF II 

CPU 6502, 1 MHz 

ROM: 16 K con interprete basic 

appiè soft compatibile 

RAM: 64 K 

VIDEO 

- Testo: 40x24 (2 pagine) 

- Grafica GR: 40x48 6 colori 
(2 pagine) 

- Grafica HGR: 280x192 6 colori 
(2 pagine) 


MPF II 


Hai già collegato il tuo registratore a 
cassette ed il tuo televisore - meglio 
se a colori - ad MPF II? Bene, allora 
il sistema è pronto. 

Più di 100 giochi su cassette e cartridge ed oltre 50 

programmi gestionali su disco costituiscono parte del software esistente per MPF II. Così puoi diver¬ 
tirti, studiare, lavorare e se necessario ampliare il tuo software. Hai, forse, scarsa familiarità col basic? 
Nessuna preoccupazione. Il pratico e facile manuale in italiano che accompagna MPF II è la solu¬ 
zione migliore. MPF II è piccolo, leggero, trasportabile, ed ha grandi capacità di memoria e d'uso. 

Noi lo chiamiamo 'Tinvestimento espandibile", perchè sono tanti i connettori che permettono 
. di espandèrlo fino a configurazioni estremamente potenti e. soprattutto, già tutte attuabili. 


nirziTCìs 

UIUII LI \ 

VIA VALLI, 28 - 42011 BAGNOLO IN PIANO (Reggio Emilia) Tel. (0522) 61623 r.a. 
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DENTRO IL COMPUTER 


Bit ... 

Il calcolatore, pur essenso 
molto veloce, non ha a dispo¬ 
sizione che due segnali fon¬ 
damentali da poter interpreta¬ 
re ed elaborare, che sono so¬ 
stanzialmente dei segnali 
elettrici di alta e bassa ten¬ 
sione 

Al segnale di alta tensione 
(H = high) si può, convenzio¬ 
nalmente, far corrispondere il 
numero 1 e a quello di bassa 
tensione (L = low) il numero 0. 
Prende il nome di bit la mini¬ 
ma unità di informazione, 
riassumibile con il simbolo 0 
o 1 

Un modo semplice di inter¬ 
pretare visivamente tale si¬ 
tuazione è quello di immagi¬ 
nare un interruttore che per¬ 
metta di far passare la corren¬ 
te erogata da una pila attra¬ 
verso una lampadina (se chiu¬ 
so), o di impedirne il passag¬ 
gio (se aperto). 

Lo stato deM’interruttore 
(aperto o chiuso) o della lam¬ 
padina (accesa o spenta) so¬ 
no variabili con due soli pos¬ 
sibili valori ai quali possono 
essere associati i valori 0 o 1 
rispettivamente. 


INTERRUTTORE: 
LAMPADINA : 

VALORE DI X : 

INTERRUTTORE: 
LAMPADINA : 

VALORE DI X : 


APERTO 

SPENTA. 

0 

CHIUSO 

ACCESA 

1 


Se si collegano due inter¬ 
ruttori, i risultati di tali colle¬ 
gamenti (che sono operazioni 
nel senso stretto del termine) 
sono ancora rilevabili osser¬ 
vando se la lampadina inseri¬ 
ta nel circuito è accesa o 
spenta. 

Se indichiamo con XI e X2 
i due interruttori e con X3 la 










Bit e Byte 


a cura di Duccio Alfano 


lampadina, possiamo pensa¬ 
re che il valore di X3 (lampadi¬ 
na accesa o spenta) è funzio¬ 
ne dei valori assunti dalle va¬ 
riabili indipendenti XI e X2. 

operazione AND 

Immaginiamo di collegare i 
due interruttori XI e X2 in se¬ 
rie, realizzando il seguente 
circuito: 


XI 


X2 


X3 


Vi sono evidentemente 
quattro possibilità, a seconda 
di come si combinano i valori 
(indipendenti l’uno dall’altro) 
di XI e di X2: 


XI 


X2 


X3 


0 

1 

0 

1 


È chiaro che, affinché la 
lampadina sia accesa (X3= 1) 
occorre che entrambi gli in¬ 
terruttori facciano passare 
corrente (XI = 1 e X2 = 1). Ba¬ 
sta che uno solo degli inter¬ 
ruttori sia aperto (0) affinché 
il risultato dell’operazione 
sia: lampadina spenta (0). 

Simbolicamente un’opera¬ 


zione tra due Bit singoli che 
dia questi risultati si chiama 
AND e si indica con il simbo¬ 
lo a: 

XI aX2 = X3 

I circuiti elettronici che rea¬ 
lizzano l’operazione AND so¬ 
no indicati con il simbolo: 


XI 


X2 


X3 


La funzione è compendita- 
ta nella seguente “tabella 
della verità”: 


X2/X1 


1 


0 


1 


0 


0 0 0 


OPERAZIONE AND 

operazione OR 

Collegando i due interrut¬ 
tori in parallelo, si può realiz¬ 
zare il seguente circuito: 


XI 


X2 


X3 


Affinché la lampadina sia 
accesa (X3 = 1) basta che uno 
solo degli interruttori faccia 
passare corrente. In pratica, 
la lampadina è sempre acce¬ 
sa (X3=1) tranne nel caso in 
cui entrambi gli interruttori 
siano aperti (XI = 0, X2 = 0). 

Simbolicamente, un’opera¬ 
zione tra due bit singoli che 
sia questi risultati si chiama 
OR e si indica col simbolo v: 


XI 


v 


X2 = X3 


Il simbolo elettronico e la 
tabella della verità relativi 
all’operazione OR sono, ri¬ 
spettivamente: 


OPERAZIONE OR 


X2/X1 


0 


1 


0 


0 
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DENTRO IL COMPUTER 


Per esprimere numeri mag¬ 
giori si usano gruppi di due 
byte, con i quali si possono 
rappresentare tutti i valori 
compresi tra zero e 
2 16 -1=65535. 

Per effettuare delle opera¬ 
zioni, occorre che gli operan¬ 


di siano contenuti in due op¬ 
portuni registri (piccole me¬ 
morie o posizioni speciali di 
memoria aventi di solito ca¬ 
pacità uguale al formato della 
parola dell’elaboratore) e il ri¬ 
sultato deve essere memoriz¬ 
zato in altro registro (che po¬ 
trebbe anche essere uno di 
quelli di partenza, se il valore 
in esso memorizzato non ser¬ 
visse più). 

Le operazioni logiche tra 
registri si effettuano ese¬ 
guendo le operazioni stesse 
tra tutti i bit corrispondenti. 

Ad esempio, eseguiamo 
l’operazione OR tra il registro 
X e il Y, mettendo il risultato 
nel registro R come indicato 
nella tabella n. 4: 

Su un singolo registro è 
spesso utile un’operazione 
consistente nello scorrimen¬ 
to, verso destra o verso sini¬ 
stra, del registro, stesso 
(SHIFT) 

In questo caso ogni contenu¬ 
to del registro viene spostato 
di una cella a destra o a sini¬ 
stra, mentre nella cella rima¬ 
sta libera, generalmente vie¬ 
ne inserito uno zero: 






Tabella n. 

2 





bit 

1 


bit 0 





H 










L 








— * 

0 0 -> zero 

H 










L 








-*• 

0 1 -*• uno 

H 










L 








— > 

10 due 

H 










L 








- 

11 -> tre 






Tabella n 

. 3 



bit n. 

7 

6 

5 

4 

3 

2 

1 

0 

valore 

corrispondente 


0 

0 

0 

0 

0 

0 

0 

0 

zero 


0 

P 

0 

0 

0 

0 

0 

1 

uno 


0 

0 

0 

0 

0 

0 

1 

0 

due 


0 

0 

0 

0 

0 

0 

1 

1 

tre 


0 

0 

0 

0 

0 

1 

0 

0 

quattro 


0 

0 

0 

0 

0 

1 

0 

1 

cinque 


0 

0 

0 

0 

0 

1 

1 

0 

sei 


0 

0 

0 

0 

0 

1 

1 

1 

sette 


0 

0 

0 

0 

1 

0 

0 

0 

otto 


1 

1 

1 

1 

1 

1 

1 

1 

duecentocinqua- 

ntacinque 






Esempio 





Nella prossima puntata 

X7 

X6 

X5 

X4 

X3 

X2 

XI 

XO 

XO 

parlemremo dei registri che 
operano in una CPU, delle 

1 

0 

1 

1 

0 

0 

0 

0 

1 

istruzioni in linguaggio mac¬ 
china e del funzionamento di 

0 

1 

1 

0 

0 

0 

1 

0 

1 

un sommatore binario. 


In questo caso si perde il 
valore del bit 7, X7. Se x7 vie¬ 
ne reinserito al posto di XO, 
si parla di rotazione del regi¬ 
stro. 


Tabella n. 4 

registro X -> 10 110 0 11 
registro Y -*• 0 1 1 1 0 0 0 1 

registro R 11110 0 11 



























DENTRO IL COMPUTER 



i .7 



AND 


OR 


Tabella n. 1 


SIMBOLO GRAFICO 


XI 

X2 

XI 

X2 


X3 


X3 


INGRESSI 


USCITA 


XI 

0 

1 

0 

1 

0 

1 

0 

1 


OPERAZIONE 

X2 


0 

0 

1 

1 

0 

0 

1 

1 


X3 


0 

0 

0 

1 


NOT 


XI 


X3 


0 

1 


1 

0 


NAND 


XI 

X2 


X3 


0 

1 

0 

1 


0 

0 

1 

1 


1 

1 

1 

0 


NOR 


XI 

X2 


X3 


0 

1 

0 

1 


0 

0 

1 

1 


1 

0 

0 

0 


OR 

ESCLUSIVO 


XI 

X2 


X3 


0 

1 

0 

1 


0 

0 

1 

1 


NOR 

ESCLUSIVO 


XI 

X2 


X3 


0 

0 

1 

1 


Altre operazioni sono defi¬ 
nibili con la medesima logica. 
Ci limiteremo a darne una ta¬ 
bella riassuntiva: (tabella N. 

D 

L’intero “sistema calcola¬ 
tore” si basa, per il suo fun¬ 
zionamento, su questa e po¬ 
che altre operazioni elemen¬ 
tari eseguite ripetutamente a 
velocità molto elevata. 

... e Byte 

Dopo aver visto come, con 
circuiti relativamente sempli¬ 
ci, si possono eseguire delle 
operazioni elementari tra sin¬ 
goli bit, cerchiamo una rela¬ 
zione tra gruppi di bit e nume¬ 
ri, come siamo abituati a co¬ 
noscerli, e eche permette la 
realizzazione delle normali 
operazioni aritmetiche. 

Abbiamo già osservato co¬ 
me un singoli bit ci permetta 
di esprimere il valore “zero” e 
“uno” associandoli ad esem¬ 
pio con un livello di tensione 
alto (H) o basso (L): 


H 


H 


L 0 


Per esprimere il valore 
“due un solo bit non è più 
sufficiente: ne occorreranno 
due. 

Però, con due bit, le possi¬ 


bilità complessive sono quat¬ 
tro (Tabella n. 2) 
e ci permettono di esprimere 
quattro valori, quelli compre¬ 
si tra “zero” e “tre”. 

In generale, con N bit po¬ 
tremo esprimere valori com¬ 
presi tra “zero” e 2 N -1” me¬ 
diante un’opportuna combi¬ 


nazione di 0 ed 1. 

Si indica con il termine 
“byte” una parola composta 
di 8 bit. Dunque in un byte 
possono essere memorizzati 
tutti i valori numerici compre¬ 
si tra 0 e 2 8 = 255 (vedi tabella 
n. 3). 
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Hi iH HiHH iHHH : 
Hi 5H Sii:::. » 
Hi... :H .:::hì hì 

naa ::: m 


Ma che 

musica 

computer! 

Gli appassionati di musica 
lo sanno benissimo: il suono 
degli anni ’80, secondo un 
trend ancora lontano 
dall’esaurirsi, è all’insegna 
dell’elettronica. Con l’avven¬ 
to di quest’ultima, infatti, un 
po’ tutto ciò che riguarda la 
produzione discografica è 
stato coinvolto in un clima di 
profondo e generale rinnova¬ 
mento delle risorse tecnolo¬ 
giche, con effetti che investo¬ 
no tanto l’attività creativa dei 
musicisti quanto il significa¬ 
to stesso del loro far musica. 

A cominciare dalla stru¬ 
mentazione impiegata - che 
per quasi vent’anni aveva 
continuato a privilegiare lo 
schema classico del 
rock’n’roll, con le chitarre a 
fare da protagoniste e l’ac¬ 
coppiata basso/batteria ad 
assicurare la pulsazione rit¬ 
mica - sono bastati pochi an¬ 
ni perché una grande quan¬ 
tità di nuove apparecchiature 
venisse messa a disposizione 
degli operatori. 

Grazie ad esse, il cui dif¬ 
fondersi è stato incentivato 
da un costo sempre più con¬ 
tenuto e, talvolta, addirittura 
inferiore a molti degli stru¬ 
menti tradizionali, la produ¬ 
zione del suono è diventata 
decisamente più facile, tra¬ 
sformando in altrettanti poli- 
strumentisti tutti coloro i 
quali sanno adoperare un 
qualsiasi organo elettrico. In¬ 
fatti, per mezzo dei cosiddetti 
polifonici, che si compongo¬ 
no appunto di una normale ta¬ 



stiera e di un meccanismo 
che permette allo strumento 
la voce (o il registro) che si 
preferisce, è oggi possibile 
passare istantaneamente, 
schiacciando un semplicissi¬ 
mo tasto di selezione, da una 
sonorità di un tipo ad un’altra 
completamente diversa. 

Al contrario di quanto ac¬ 
cadeva in passato, quando il 
ricorso a determinate soluzio¬ 
ni poteva essere ostacolato 
dalla difficoltà di reperire del 
personale specializzato in 
strumenti poco diffusi, ecco 
dunque ampliarsi a dismisu¬ 
ra, e come d’incanto, le op¬ 
portunità di scelta di ogni sin¬ 
golo musicista. 

Addirittura, qualora si arrivi 
a quella forma estrema di po¬ 
lifonico che il fairlight (ma, at¬ 
tenzione, perché qui i prezzi 
sono di gran lunga superiori) 
vi sono casi in cui diventa 
possibile “inventare” nuove 
timbriche, derivando da un 
qualunque suono di partenza, 
ad esempio il rombo di un ae¬ 
roplano, quanto basta perché 
il sintetizzatore ne predispon¬ 
ga l’utilizzazione in termini di 
note musicali. 

In questo modo, insomma, 
la vecchia e già discussa di¬ 
stinzione tra “suono” e “ru¬ 
more”, che aveva dato vita ad 
alcune delle più interessanti 
discussioni sull’evoluzione 
della musica contemporanea, 
viene non solo riformulata ma 
anche riconsiderata nei suoi 
rapporti con la musica di 
massa. 


Come si inizia a vedere, 
dunque, l’apparire e raffer¬ 
marsi di questi nuovi stru¬ 
menti non si limita a semplifi¬ 
care il normale lavoro di chi 
suona, ma finisce col porre 
una lunga serie di problemi e 
di interrogativi, talora soltan¬ 
to impliciti e talvolta invece, 
quando esiste negli operatori 
una particolare e più specifi¬ 
ca maturità, tanto nitidi da 
superare i confini della sola 
cultura rock. 

In questi ultimi casi, allora, 
la musica elettronica di oggi 
torna a recuperare qualcosa 
dell’atteggiamento con cui 
era stata accostata nello 
scorso decennio, prima che i 
sintetizzatori diventassero 
tanto diffusi da esporsi ai ri¬ 
schi di un impiego tutto som¬ 
mato banale e prima, quindi, 
che la suggestione del nuovo 
finisse impigliata nei luoghi 
comuni dell’industriza disco- 
grafica. 

D’altronde, questa diversa 
serietà di approccio nei con¬ 
fronti di un nuovo codice 
espressivo, che non a caso 
aveva segnato soprattutto la 
cosiddetta “musica cosmi¬ 
ca” dei vari Tangerine Dream 
e Popol Vuh, è per molti versi 
la stessa che fà si che il com¬ 
puter, a seconda di chi lo im¬ 
piega, sia solo un nuovo tipo 
di gioco oppure un nuovo in¬ 
terlocutore con cui misurare 
il valore delle proprie conce¬ 
zioni sulla realtà. 

Beninteso: non che si vo¬ 
glia sostenere, a maggiore ra¬ 
gione in questa sede, che un 
uso non serioso dell’elettro¬ 
nica in generale e del compu¬ 
ter in particolare costituisca 
di per sé un peccato di legge¬ 
rezza; ma è certo che non 
possono che fare piacere 
quei casi in cui, accanto al 
desiderio di semplice diverti¬ 
mento, prende corpo una so- 
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lida volontà di ricavare dalle 
novità tecnologiche sempre 
nuovi input (!) di riflessione e 
di conoscenza. 

E mentre viene in mente 
Peter Gabriel, e su un versan¬ 
te assai diverso i Wall of Voo¬ 
doo, questa breve carrellata 
si decelera fino a fermarsi. 
Ma mettiamola in memoria, 
questa immagine del musici¬ 
sta che si muove tra i circuiti 
integrati come un vecchio al¬ 
chimista tra i suoi alambic¬ 
chi, e chissà che molto pre¬ 
sto, con la facilità di un sem¬ 
plice tocco sulla tastiera, es¬ 
sa non torni a comparire. 

Gli incanti del Duemila, co¬ 
me ben sapete, funzionano 
anche cosi... 

Federico Zamboni 


ERRATA CORRIGE 

Programma: TRIS (ORIC 1) 
pag. 11-12 LIST n. 2 

a) a pag. 12 è stato invertito 
l’ordine delle colonne del li¬ 
stato: 

1 colonna = dalla linea 290 
alla 810 

2 colonna = dalla linea 820 
alla 1290 

b) 129 = 1290 

c) la linea 340 va cosi letta: 
IF 7 = 0 THEN X 
(S + 1) = X(S + 1) + 1 

Programma: ROULETTE 

EUROPEA (VIC20) LIST n. 2 
pag.31 

Inserire la linea 3040;segue: 



J. WILLIS e D. WILLIS 
Come usare il 
Commodore 64 
Franco Muzzio Editore 
L 18.000 

Numerosi possessori del 
CBM 64 si saranno rallegrati 
dell’uscita di un testo sull’uso 
della propria ottima e versatile 
macchina. 

In realtà, però, il libro in que¬ 
stione non può non lasciare un 
po’ delusi, riducendosi spesso 
ad una ripetizione, sia pur in 
una forma piu ordinata ed ele¬ 
gante, del manuale fornito dalla 
ditta costruttrice. 

Inoltre, i capitoli dedicati al 
software e agli accessori, che 
avrebbero potuto essere i più 
interessanti, fanno riferimento 
al mercato americano e sono 
quindi (almeno per ora) scarsa¬ 
mente utilizzabili. 

La traduzione è accurata e 
facilmente leggibile. 

Se ne può consigliare l’acqui¬ 
sto al neofita che abbia bisogno 
di essere portato per mano al 
primo contatto con il calcolato¬ 
re, ma non certo all’utente un 
po più “navigato” che voglia 
approfondirne la conoscenza. 


L’EDICOLA 
DI LIST 

R.BONELLI e D. GIANNI 
Alla scoperta del VIC20 
Gruppo Editoriale Jackson 
L. 22.000 

Chi fosse convinto di cono¬ 
scere tutto sul proprio VIC 20, si 
ricrederà dopo aver acquistato 
il volume in questione che, con 
metodo e direi quasi pignoleria, 
introduce alla conoscenza del 
microprocessore 6502, alla ge¬ 
stione del video e dell’I/O su 
stampante, su disco o su cas¬ 
setta. 

Il tutto è inserito in un conte¬ 
sto ben congegnato, con nume¬ 
rosi paragrafi (come ad esem¬ 
pio quelli dedicati ai modi di in¬ 
dirizzamento e tutto il capitolo 
finale sull’assembler e il lin¬ 
guaggio macchina) che, pur es¬ 
sendo ovviamente dedicati al 
VIC 20, possono essere letti 
con interesse anche da posses¬ 
sori di altri calcolatori. 

Certamente, non è un libro 
dedicato a lettori alle prime ar¬ 
mi, anzi, come viene esplicita¬ 
mente detto nella prefazione, 
esso si rivolge ad un pubblico 
che sia già divenuto “utente 
BASIC” e che, avendoci “preso 
gusto”, voglia approfondire an¬ 
che l’aspetto hardware, per ar¬ 
rivare ad un tipo di programma¬ 
zione più sofisticata. 


3040 INRIJT " i!L N. 1 " COLONNA" ; D1 

Programma: GRAN PRIX 

(VIC20) pag. 82 LIST n. 1 
Nel listato pubblicato è stata 
saltata la linea 200;segue: 

200 PR1N F " 

sanili" ; 


I NPUT" SL N . 2* COLONNA 11 , D2 •' I FAB3 < Jj 1-D2 >> 1 THEN3040 


III 


vo 
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SHARP MZ-700 


Caccia al tesoro 

Il vostro SHARP MZ-700 ha nascosto un tesoro: a voi il compito di trovarlo. 

Inserite le coordinate /lettera e numero) e seguite la direzione che il computer indica 
Chi riuscirà con meno tentativi? 

STRUTTURA PROGRAMMA 

30 Collocazione casuale del tesoro 

40 Stampa titolo 

50 - 60 Stampa area di ricerca 

70 Immissione coordinate e calcolo numero tentativi 

80 - 160 Confronto coordinate inserite/posizione reale e indicazione direzione 
170 - 290 Valutazione tentativi effettuati 

VARIABILI 

XI, Y1 Coordinate del tesoro 

A$ Immissione tentativo 

X, Y Coordinate tentativo 

B$, C$ Direzione da prendere 

AI Totale tentativi 

Attenzione! Le stringhe alle righe 50,60 e 150 contengono caratteri grafici che la stampante ha espresso 
in forma di codici ASCII esadecimali. Cercate a pag. 156 del manuale i simboli corrispondenti ai codici ed 
immetteteli da tastiera usando il tasto GRAPH. Per aiutarvi, diremo che il codice ASCII "EC" corrisponde 
al segno grafico "D". Buon divertimento!! 



10 REM*CACCIA AL TESORO* 

20 REH*BY E.FABRI2I-1984* 

30 CLR : COLOR , , 0,6 •' PRI NT " B " : X1 = I NT C RND C1 
1*253:T1=INTCRNDC13*101 : Al=0 
40 T$="CACOIA AL TESOROCURSOR12,1 :F0R 
1=1 TO LENCTCD:PRINTt7,03MID*CT$,I,1)i:G 
OSUB300:NEXT:G0SUB310:PRINT:PRINT 
50 LIIR30R5.3:PRTNTr7.03" f4C4 ABCDFFGHIJKL 
MNQPQRSTUUUXY2 C4C4 ":CURS0R5,14:PRINTC7,0 
3 " C.3C3A BCDEFGH I J KLMN0PQRSTUUUXY7 C3C3 " :CU 
RSOR0,4 

60 FOR 1=1 TO 10:PRINT[?,0]TABC5310-I;:P 
RINTC0» 4 ] " ECECECECF.CECECECECECECECECECEC 
ECECECECECECECECECECEC -; SPRINTC7,0]10-1 : 
NEXT:GOSUB310 
70 CURS0R7 5 17:PRINT" 

" : CURS0R7, 1 7 :PRINTC7, 1 .3 " Inser i re I 

e coordinate: ";:INPUT A$ : Al=A1 + 1 :&0SUB3 
00 

80 X=ASCCA$3-65:Y=UALCRIGHT$CA$,133 
90 IF X>X1 THEN B$="QUEST" 


100 
1 10 
120 
130 
140 


IF 

IF 

IF 

IF 

IF 


X<X1 
X=X 1 
r>Ti 
T <Y 1 
Y=Y 1 


THEN 

THEN 

THEN 

THEN 

THEN 


B$= 

B$= 

C$= 

C$= 

C$= 


EST" 

li 

SUD-" 

NORD-" 


150 CURSOR X+7,13-Y:PRINTC6,23"68':IF 

=C$ THEN 170 

160 CURSOR 7,19 :PRINT" 


B$ 


":CURSOR 7,19:PRINTC0j 5]"Devi di 
rigere a ";C$;B$:GQSUB310 :GOTO70 
170 CURS0R7,17:PRINT" 

" :CURS0R7,19:PRINT" 

” : GOSUB320 

180 CURSORI 1,16:PRINTC7j13"CONGRATULA?10 

NI822" :PRINTC7j13TABC93"HAI TROUATO IL T 

ES0R02":GOSUB310 

190 IF Al<6 THEN 260 

200 IF Al<11 THEN 270 

210 IF -Al <20 THEN 280 

220 PRINT :PRINT[7j 0]TABC23"f1I SEMBRA, CO 
flUNQUE, CHE" ; Al ;" TENTATI UI" : PRINT [7, 03TA 
BC93"SIANO UN PO" TROPPI 2 2 2 ":G0SUB310 
230 CURSOR0,23:PRINT"Se vuoi giocare anc 
ora premi un tasto" 

240 GET 2$:IF 2$=""THEN 240 
250 GOTO 30 

260 PRINT :PRINT[7,03TABC143"BRADISSIMO2 2 
" :G0T0 290 

270 PRINT :PRINTC7,03TABC153"DISCRET02 2 " : 
GOTO 290 

280 PRINT :PRINTC7,03TABC153"MEDI0CRE22" 

290 PRINTC7,03TABC63"SEI RIUSCITO IN";Al 

;" 'TENTATIUI":GOSUB310:GOTO 230 

300 TEMPO 7:MUSIC"+C1" :RETURN 

310 TEMPO 7 :MUSIC"C1DIE1F1G1A1B1":RETURN 

320 TEMPO 7:MUSIC"E5G7E5G7R3E3G5E3G5E3G5 

":RETURN 


mi 













SHARP MZ-700 




Istogrammi 

Statistica... metodi di indagine... rappresentazione grafica... 

Il programma chiede il numero dei dati da inserire, il loro valore e la denominazione (max. 9 caratteri). 




1 reh **************** 

2 REM ** MASSINO 84 ** 

3 REM ** ISTOGRAMMI ** 

4 REM **************** 

10 DIMAC73,A$C73 

20 P0KE#26A,35 
30 TEXT :PAPER0:INK7 
40 FORT=0TO7 

50 8$ C T 3=CHR$ C T+144 3:F$CT3=CHR$CT+1283 
60 NEXTT 
70 CLS:PRINT 

80 PRINTSPCC153B$C73SPCC123B$C03 

90 PRINT SPCC153B$C73F$C03"ISTOGRAMMI "B 

$C03 

100 PRINTSPCC153B$C73SPCC123B$C03 
110 PRINT:PRINT"Quanti dati " ; : INPUTU : IF 
U>70RU<0THENPOKE#268,5:GOTO 
110 

P0KE4268 , 5 

PRINT :PRINT"Inserisci ! dati: " 
FORM=0TOU-1 

IFPEEKC#2683>25THENP0KE#268, 18 

INPUT'*.JACM3,A$CM3 

IFLENCA$CM33>9THENSHOOT: GOTO 160 
NEXTN 
R=AC03 
F0RY=1TOU-1 

IFR>ACY3THENGOTO220ELSER=ACY3 
NEXTY 

P0KE#268,4:FORQ=lT022:PRINTSPCC463:N 


120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

EXT 

240 

250 

260 

270 

280 

290 

300 

310 

320 


FORT=0TOU-1 

F0RE=27TO28-INTCC25/R3*ACT33STEP-l 
PLOTE,CT+13*3+3, B$C13+B$C03 
NEXT 

PLOT30,CT+13*3+3,A$CT3 
NEXT 

P0KE4268,26:PRINT"ANC0RACS/N3?" 
GETA$ : IFA$="S"THENRUN 
IFA$="N"THENENDELSE310 



L_ 

Vi? 
















NEWS & NEWS 



Oric Atmos 48K 

Un nuovo computer. Un notevo¬ 
le passo avanti nella tecnologia 
per quel che riguarda gli Home- 
Computers. Il che è abbastanza 
sorprendente se si considera che 
si tratta semplicemente dell’evolu¬ 
zione dell’Oric-1, il computer bri¬ 
tannico votato come il 'Migliore 
dell’Anno’ in Francia. 

Rispetto all'Oric-1 (150.000 
unità già vendute) è stato comple¬ 
tamente cambiato il design e sono 
state apportate un certo numero di 
importanti migliorie. 

Specifiche tecniche 


visto 
per voi 

da 


ili ili ! ««iiì Ili 

:::::: ::: :::::: : ili 


L'ORIC ATMOS è disponibile in 
due versioni - 16K e 48K. Entram¬ 
bi i modelli hanno tastiera di tipo 
professionale. Specifiche detta¬ 
gliate sulle capacità dell’ATMOS 
vengono date di seguito. 

È possibile il collegamento di un 
Micro Disc e di una stampante a 
quattro colori, che permettono di 
creare un vero e proprio sistema 
di tipo professionale. 


Sistema Oric 


dei 64K RAM o può essere sfrutta¬ 
to per incrementare dall'esterno la 
ROM. 



Cpu/memoria 

Micro Processore 6502A, 16K 
ROM, contenente interprete BA¬ 
SIC e sistema operativo. RAM di¬ 
namica a bassa dispersione di po¬ 
tenza. 16K Byte o 48K Byte. Il mo¬ 
dello 48K ha 64K di RAM, sedici 
dei quali vengono assorbiti dalla 
ROM. Un segnale di controllo 
esterno permette l’uso completo 


Tastiera 

57 tasti. Maiuscole e minuscole 
con barra spazio posizionata cor¬ 
rettamente. Tasti ESC,’CTRL, RE¬ 
TURN e tasti cursore. Tutti i tasti 
hanno "auto-repeat”. 



Display 

Televisore a colori UHF PAL o 
televisore bianco/nero. Segnale su 
canale 36. Attacco per monitor 
RGB. 

Schermo-modo carat¬ 
tere 

Le 28 linee di 40 caratteri produ¬ 
cono un display molto simile al TE- 
LETEXT. Il set di caratteri è lo stan¬ 
dard ASCII che viene migliorato 
dall'aggiunta di 80 caratteri defini¬ 



bili dall’utente. Anche i caratteri 
ASCII possono essere ridefiniti. Le 
possibilità del display vengono 
controllate come nel TELETEXT e 
sono: 

a. Selezione colore sfondo (PA¬ 
PER)-da 1 a 8 

b. Selezione colore scrittura (INK) 
- da 1 a 8 

c. Comando FLASH - ON e OFF 
due volte al secondo 

d. Ingrandimento caratteri 

e. Commutatore per il set di carat¬ 
teri definibili daN’utente: mediante 
questo è possibile ottenere della 
grafica a colori del tipo TELETEXT. 

Colori disponibili: Nero, Blu, 
Rosso, Magenta, Verde, Celeste 
(CYAN), Giallo, Bianco. 

Possibilità di ottenere inversio¬ 
ne video (negativo/positivo). 

Bordo display nero (fisso). 























Schermo - modo grafi¬ 
co 

200 pixels (verticale) x 240 pi- 
xels (orizzontale) piu tre linee di 40 
caratteri (come per il Modo Carat¬ 
tere) sul fondo dello schermo per 
visualizzare informazioni del siste¬ 
ma e per poter vedere il program¬ 
ma (listato) mentre si è nel modo 
grafico. 

Queste linee possono anche es¬ 
sere usate per inserire comandi di¬ 
retti per la grafica e vederne im¬ 
mediatamente i risultati. 

Lo schermo grafico è formato 
da 200 linee x 40 “celle grafiche". 
Per ogni cella c’è la possibilità di 
combinare 8 colori per lo sfondo, 8 
per la scrittura ed il Flash. Anche 
qui è possibile ottenere l’inversio¬ 
ne di video. I caratteri ASCII pos¬ 
sono essere portati nell’area grafi¬ 
ca permettendo di unire grafica e 
testo. 

Suono 

Altoparlante ed amplificatore in¬ 
terni. Possibilità di collegamento 
ad impianto HI-FI esterno median¬ 
te connettore DIN. 

Sintetizzatore di suono a tre vie 
(General Instrument 8912), con 
possibilità di produrre note musi¬ 
cali su frequenze sub-soniche e 
supersoniche. 

Possibilità di sintetizzare vari 
strumenti musicali. 

Generatore di rumore casuale 
che permette di ottenere effetti 
molto interessanti per video¬ 
giochi. 

Comandi di suono 

È possibile produrre tre toni di¬ 
rettamente dalla tastiera: 

a. “beep’’ alto quando viene pre¬ 
muto un tasto alfanumerico. 

b. “beep’’ basso quando viene 
premuto un tasto particolare (es.: 
DELETE, CARRIAGE RETURN). 

c. timbro di ‘campana’ quando vie¬ 
ne premuto il tasto di controllo G. 

E possibile eliminare momenta¬ 
neamente questi suoni quando lo 
si desidera. 

Quattro suoni sono pre¬ 
programmati e possono essere 
usati nei programmi: 

I) PING - campana 

II) SHOOT - colpo di pistola 

III) EXPLODE - esplosione 

IV) ZAP-laser. 

Per facilitare la creazione di altri 
suoni, ci sono tre istruzioni BASIC: 
SOUND, MUSIC, PLAY. 

SOUND: va da 15Hz a 62KHz. 
MUSIC: note su raggio di sette 
ottave. Possibilità di combinazioni 
a tre voci. 
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Stampante a quattro 
colori 

Nel caso si vogliano conservare 
scritti, dati e informazioni, è abba¬ 
stanza semplice aggiungere al si¬ 
stema ATMOS una stampante a 
quattro colori. 

La stampante è stata progettata 
per integrarsi perfettamente 
all’ORIC ATMOS. 

Una ingegneria di precisione ha 
prodotto una unità che dà un'ec¬ 
cellente scrittura in quattro colori 
diversi su carta semplice e non, 
come molte altre stampanti, su 
carta termica. 

Produce una stampa di alta qua¬ 
lità su 40x80 colonne, alla velo¬ 
cità di 12 caratteri al secondo. 

Si tratta di una stampante a 
quattro pennini 'ballpoint' - rosso, 
verde, blu e nero. Anche i pennini, 
come la carta, sono facilmente re¬ 
peribili. 

La stampante ORIC ha alimen¬ 
tatore proprio ed è fornita di tutti i 
cavetti necessari per il collega¬ 
mento all’ATMOS (o a qualsiasi al¬ 
tro computer con interfaccia CEN¬ 
TRONICS). 

Può essere tranquillamente col¬ 
legata sia all’ATMOS 48K che al 
più piccolo 16K. 

Il Micro Disc 

La differenza fra il Micro Disc 
ORIC e un normale registratore a 
cassetta sta principalmente nella 
possibilità di "immagazzinare” 
molte più informazioni (program¬ 
mi, giochi, ecc.) e poterle richia¬ 
mare in una frazione di tempo mi¬ 
nima. 

Il Micro Disc usa dei dischetti 
da 3". Ogni dischetto è protetto da 
un involucro speciale: ciò significa 
che non viene mai maneggiato di¬ 
rettamente e non corre dunque il 
rischio di essere rovinato. 

Il dischetto viene caricato auto¬ 
maticamente dall’unità principale 
in pochi secondi, può contenere 
un’enorme quantità di informazio¬ 
ni ed ha la stessa capacità di un di¬ 
sco da 5 1/4". 

Il Micro Disk ORIC aggiunge po¬ 
tenza all’ATMOS estendendone le 
capacità. È disponibile una vasta 
gamma di software su dischetti e 
titoli nuovi sono disponibili di gior¬ 
no in giorno. 


Per ulteriori informazioni 
scrivere alla redazione di 
LIST, Casella Postale 4092 
Roma Appio 
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Invader 


Il "classico " dei giochi spaziali. 

Dovete cercare di eliminare gli invasori dalla vostra base terrestre, mediante un cannoncino. 

Comandi: 

Z=sinistra 
C= destra 
M=cannone 

2 V=53248’P0KE54276,0 :P0KE5429G,G:P0KE54278,24G•P0KE54292,240•P0KE54276,129 

4 POKE54290,17 = POKE V+33,G:POKE V+32,G : SC=1G24:CL=55296:00=54272■P0KE5429S, 

5 P0KE54298,17 : POKE V+33, G : POKE V+32, G : SC= 1024 : CL=55296 : 00=54272 •’ P0KE54296, 
8 P0KE56,23 :P0KE55,G : FOR I = 12544 TO12551 :POKE 1,0:NEXT 

10 GOSUB 80GG : GOSUB 8060 : GOTO 1GGG 

99 IF K=1 THEN 39 

10G IF KOI2 AND KO20 THEN 150 

1G5 POKE SC+V*4G+X,32 :X=X-<K=12>*<X>0> + <K=20 >*<XC39 > 

106 IF PEEK(80+V*4G+X>032 THEN D=1 
110 POKE CL+V*40+X, 3 : POKE SC+Y*4G+X, G 
115 RETURN 

15G IF K=36 AND SXCG THEN SX=X : SV=V-1 ; P0KE54273,72 : POKE 54272,163 
155 RETURN 

2GG POKESO+SV*40+SX,32'SV-SV-1 : IF SVC1 THEN SX=-1: RETURN 
2G5 P=PEEK<S0+SV*4G+SX > 

21G POKE CL+SV*40+SX, 7 : POKE S0+SV*40+SX, 2 : IF P=32 THEN RETURN 
215 P0KE54273,34 :P0KE54272,75 :POKE80+SV*40+SX,4 
22G IF POI THEN 250 

225 FOR VI=8 TO G STEP-2:F0R XI=10 TO 0 STEP-2:R=IN + V1*6+X1 

230 IF PEEKCP>OSV OR PEEKCP+1 >OSX THEN 245 

235 8=8+ < 12-V1 > 3f 5 : NO=NO-1 : POKE P+ 2,255 ' X1 =0 V1 =G 

245 NEXT:NEXT:G0T0275 

25G IF POS THEN 275 

255 FOR J=GT05 : IF SC J>=Sr:+SV*40+SX THEN 8=8+5 : SOT)=0:J=5 
260 NEXT 

275 POKESO+SV#40+SX,32 : SX=-1 : RETURN 

300 POKE 8<J>,32:8<J > =S<J)+40 : IF 8<J> >1933 THEN 8 <J> =0 : RETURN 
305 F-PEEK < 8 < ,T > > : POKE 8 < J i+00,3 : POKE 8 < J >, 3 
31G IF P=32 THEN RETURN 

315 POKE S<J>,4 :P0KE54273,43 : P0KE54272,52 : IF P=G THEN D=1 

320 IF S<J>=SC+SX+SY*40 THEN SX=-1 

325 POKE S< -J >, 32 : 8 < -J > =G : RETURN 

50G 81 = 1 NT<RNB< 1 )#6> : IFS<S1»GTHEN RETURN 

5G5 FOR vi=8 TO G STEP-2 : IF PEEKUN+Vl*6+81*2+1>=255 THEN 550 
518 SCSI>=80+ CPEEKCIN+V1*6+81*2> +1> *4G+PEEK CIN+V1*6+81*2+1> : V1=G 
55G NEXT: RETURN 

1000 D=G : FORI = 1TOSP : K=PEEK< F'E > : IF K064 THEN GOSUB 99 

1005 IF SX>=0 THEN GOSUB 200 

1010 FOR J=0TO5 ; IF SCJ>>0 THEN GOSUB 3GG 

1015 NEXT:POKE54273,0 :P0KE54272,G:P0KE54237,G:P0KE54236,G 

1G20 IF RNHC1».5 THEN GOSUB 5GG 

1100 NEXT : SVS 7163: IF N0<21 THEN 3P=3’:IF NOCI 1 THEN SP=2: IF NO <6 THEN SP=1 

1101 P0KE54287, 2 : P0KE542S6,37 : I FF'EEK C 12303 > =36 THEN POKE 12303, 129 GOTO 1104 

1102 POKE12303,36 

1104 IF PEEKC7604>=G AND D=G RNB NO>0 THEN1GGG 

1105 IF HO=0 THEN GOSUB 3050 : GOTO1GGG 

1110 POKE 80+V*40+X,4 :P0KE54273,61 : P0KE54272,126 

1115 FORI = 15T0GSTEP-.1 P0KE54296,I : NEXT P0KE54237,8 :P0KE54236,G : POKESC+V* 
40+X,G 


15 

15 
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Per questo calcolo non serve 
il computer 



piu di 200 programmi in un anno a meno di 
150 lire l’uno 



in regalo una cassetta per i tuoi programmi 















uno sconto del 50% 
al LISI CLUB 


costo dell’iscrizion 










Perché non ti abboni? 




pensaci! 











SINCLAIR ZX-SPECTRUM 48K 



Status 


Un vero e proprio CHECK UP per il vostro Spectrum, che vi sarà di valido aiuto sopratutto durante la 
compilazione dei programmi. 

Ad ogni richiesta visualizza la RAM totale del sistema, i valori attuali dei bytes Mappa Microdrive, la me¬ 
moria occupata dal programmo BASIC, dalle variabili, lo spazio rimasto ancora disponibile, non esclu¬ 
dendo i caratteri grafici definiti dall'utente fUDG) 

Può bastare???? 

N.B. Le lettere che seguono UDG devono essere digitate nel Modo Grafico. 



1 DEF FN p<n»sPEEK nffi56*PEEK 
( n + 1 ; 

9998 CL5 DROU 255, 0. DRfiU i5, 17 

5: DRftlJ -255,0; DRflW 0,-175; PLO 
T 40,158: DfiHtJ 175,0. PftINT hT 1 
,5; "STRI O DELLA MACCHINA. AT 4 
,2; "RAM totale ; -; (FN P (237 

32) -16383) /1024, " k ; AT 6,£; "Map 
pa Microdrive:",FN p(23631)-«373 
4 bytes", AT 3,2; "Progrsana Bas 
i c ; , FN P (23827' -FN P <23^35* , " 

bytes"; AT 9,2, "Canabi U - 

, FN p <2354.1.» -FN P <236271 -1; by 
t es"; hT 11,2; "Spazio Libero 
,FN p(23730)-FN P(23841);" bytes 
’■ , AT 19,2, "UDG ; ABCDEFGHIJKLMNO 
PORSTU*' 

9999 PRINT AT 14,2."TEMPO 

", 1 NT ( iFN P (2357^1 ^t-553D*P 
LEK 236 74-.» /50) ; s e c . “ CO TG 99 
99 
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In cerca di amici 


La diffusa e sentita esigen¬ 
za di disporre di uno strumen¬ 
to in grado di favorire i con¬ 
tatti e lo scambio di esperien¬ 
ze tra le persone accomunate 
dalla medesima passione per 
il mondo deH’informatica ed 
in particolare per gli home 
computers, è alla base delle 
motivazioni che hanno con¬ 
sentito la nascita del LIST 
Club. 

Il LIST Club, inoltre, inten¬ 
de promuovere tra la gente, in 
partiolare i giovani, la diffu¬ 
sione e l’interesse per i com¬ 
puters, consapevole dell’im- 
portante ruolo che essi sono 
destinati a svolgere nella so¬ 
cietà moderna. 

Tuttavia, nell’intento di fa¬ 
re divulgazione scientifica e 
svolgere attività didattica 
senza annoiare, anzi favoren¬ 
do il momento di evasione, il 
gioco e lo stare soprattutto 
insieme, il LIST Club ha in 
programma simpatiche inizia¬ 
tive che verranno illustrate 
nei prossimo numeri della ri¬ 
vista LIST. 

Di seguito sottoponiamo 
all’attenzione dei lettori gli 
scopi, le modalità per riscri¬ 
zione e le interessanti oppor¬ 
tunità offerte a chi si associa 
al LIST Club. 

È nato il List Club 

L’Associazione si propone 
di divulgare le notizie più in¬ 
teressanti per la migliore uti¬ 


lizzazione degli home compu¬ 
ters, promuovere i contatti e 
favorire gli scambi fra tutti gli 
appasionati di “listing” e fra 
gli operatori di “software”, 
organizzare iniziative che fa¬ 
voriscano la collaborazione e 
la conoscenza fra i soci. La 
possibilità di iscrizione al 
LIST-CLUB è consentita a tut¬ 
ti coloro che possiedano un 
home-computer. 

Per aderire al CLUB è suffi¬ 
ciente compilare l’apposita 
cedola di iscrizione pubblica¬ 
ta in queste pagine e spedirla 
al LIST-CLUB, casella postale 
n. 4092 00182 Roma-Appio, 
Roma, unitamente alla ricevu¬ 
ta del versamento di lire 
20.000 sul c/c n. 72609001. 

Coloro i quali abbiano ela¬ 
borato programmi originali e 
di interesse comune ed inten¬ 
dano diffonderli, potranno in¬ 
fatti inviarli, incisi su casset¬ 
ta o registrati su floppy-disk 
all’indirizzo del club (i listati 
di programma su carta non 
potranno essere presi in con¬ 
siderazione). Tali elaborati 
dovranno essere accompa¬ 
gnati da brevi note esplicati¬ 
ve sul funzionamento e sulle 
applicazioni del programma. 
Questo dovrà contenre, 
all’inizio del listato, delle 
Rem indicanti la denomina¬ 
zione del programma, l’indi¬ 
rizzo ed il numero telefonico 
dell’autore. A tutti coloro che 
invieranno dei programmi ri¬ 


spondenti alle caratteristiche 
sopra indicate, verranno spe¬ 
diti in omaggio una cassetta 
o un floppy-disk (delle stesse 
caratteristiche di quello usa¬ 
to). I programmi più interes¬ 
santi e nuovi (gli autori, ovvia¬ 
mente, si assumeranno ogni 
responsabilità circa la origi¬ 
nalità degli elaborati trasmes¬ 
si) saranno pubblicati a cura 
del LIST-CLUB sulla rivista LI¬ 
ST, secondo gli spazi dispo¬ 
nibili. Con l’invio del pro¬ 
gramma i diritti di utilizzazio¬ 
ne e di riproduzione dello 
stesso si intendono ceduti il¬ 
limitatamente al LIST-CLUB 
che ne farà uso divulgativo e 
scientifico. 

Il socio del LIST-club ha di¬ 
ritto a: 

1) ricevere il tesserino di ap¬ 
partenenza al LIST-CLUB; 

2) usufruire dei servizi predi¬ 
sposti per i soci e partecipare 
alle iniziative promosse dal 
club; 

3) effettuare, nei limiti della 
disponibilità, inserzioni gra¬ 
tuite nelle pagine riservate al 
club sulla rivista LIST; 

4) ad uno sconto particolare 
sui prodotti LIST. 

Partecipa alla nostra inizia¬ 
tiva!! 

I programmi pubblicati ver¬ 
ranno compensati con un fa¬ 
voloso Jojstick per il tuo ho¬ 
me computer!!! 
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VIENI CON NOI 


L’iscrizione al LIST ti da diritto: 



ISCRIVITI! 


— A ricevere immediatamente la tessera d’i¬ 
scrizione insieme ad un adesivo 

— A inviare programmi di tua creazione che, 

se pubblicati, saranno compensati con un 
accessorio per il computer 

— A partecipare alle iniziative ri¬ 
servate ai soci e usufruire dei 
servizi per essi predisposti 
— Ad ottenere sconti 
sulle pubbicazio- 


ni e sui pro¬ 
dotti di LIST: la 
prima offerta LIST è 
rappresentata da una 
magnifica maglietta per 
l’estate. 





PER RICEVERE IL JOY-STICK 



Programma 
verrà pubblicato, 
riceverai il tuo Joy-Stick. 


— Devi iscriverti 
al LIST-CLUB 


— Inviare un 
programma 
originale su 
cassetta 
o disco 



Bit il bruco 


Dovete essere molto abili per riuscire a controllare Bit, il bruco, che striscia per lo schermo: è alla ricerca 
di gustose "merendine" che, una volta mangiate, lo fanno crescere - in lunghezza - e lo rendono piu ve - 


Evitate che Bit sbatta contro i muri oche mangi quei bocconcini avvelenati che si trovano fra le merendine. 
Attenzione anche a che il bruco non "morda" la suo stessa coda. 

Istruzioni complete inserite nel listato. 




11 P0KE53281,0 

13 FORT = 1024TO1063 : POKET .■ 160 : NEXT S 

14 FQRT=1063TO2023STEP40: POKET, 160 : NEXT 

15 FORT=2023TO1984STEP-1=POKET,160 NEXT 

16 FORT*1984TO1024STEP-40:POKET,160:NEXT 

20 fi1 = 1601 :R2=1602 :fi3=1603 :fi4=1604 :R5=1605 :fi6=1606 = fi7=1607 :R8=1608 

21 B1 = 1610 : B2= 1611 : B3= 1612 : B4= 1613 : B5= 1614 : B'6= 1615 : B7= 1616 : B8= 1617 
32 FORT*1TO20:X=INT < RHH<1>*954 >+41 

40 POKE1024+X,160 
50 NEXTT 

Pi 1 POKER 1,56: POKER2,81 : P0KER3, 81 •' P0KER4,81 : P0KER5,81 : P0KER6,81 : PQK 

52 POKER8,81 : POKER9,81:POKEB1,81:P0KEB2,81=P0KEB3,81 : P0KEE4,81 :POK 

53 P0KEB6,81 :P0KEB7,81:P0KEB8,32 
60 FORT*1TO10 : X*INT <RND<1>*912 > +41 

65 I FF’EEK < 1024+X>032THENX* I NT < RND < 1 >*912 >+41 : G0T065 
70 POKE1024+X,102:P0KE55296+X,1 


80 NEXTT 


100 GETR$:IFRt*"D"THENQ=-40 
110 IFR$=" "THENQ=40 
120 IFR$="X"THENQ*-1 
130 IFR$="C"THENQ* 1 

136 B8=B7 : B7=B6 •' B6=B5 : B5=B4 : B4=B3 : B3=E2 : B2=B1 : B1=R9 : R9=R3 : R8=R7 : R7^ 
140 R5=R4:R4=R3:R3=R2:R2=R1 :R1=R1+Q 

150 IFPEEK<R1> = 160THEN300 

151 IFPEEK(R1> =81THEN300 

152 IFPEEKCR1 > = 102THENPN=F*N+10 : N=N+1 : P=P-5 : GOSUB800 

154 IFN=10THEN200 

155 POKER1,56 :P0KER2,81:P0KEB8,32 
157 FORT*1 TOP:NEXT 

160 GOTO100 

200 FORT*1TO20: X*INT <RND<1> *959> +40 
210 POKE1024+X,160 

220 NEXTT 

221 FORT*1TO10 :P0KE54277,64 :P0KE54276,17:P0KE54273,17:P0KE54272,37 







Ili ili il !"! 5 55 !!!" 

I S mi ::: Hi 

Hi::: Hi Hi 
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320 

330 

340 

350 

400 

410 

420 

430 

440 

450 

500 

510 

550 

555 

560 

570 

572 

573 
575 

599 

600 
610 
640 
650 
660 
670 
675 
630 
635 
686 
6o3 
690 
700 
710 
800 
810 
815 
820 


P0KE54 


223 

225 

230 

235 

246 

250 

260 

270 

300 

305 

310 

311 


276 

FORKL=1TQ100 : NEXT : P0KE542Vr, 


0 :P0KE54277j0 :P0KE54273,0 

!??,128 ^ P0KE54276,17 :P0KE54273,40 :P0KE542Ì 
FORKL=1T0100:NEXT•P0KE54276,0 : PQKE54277,0•P0KE54273,O : NEXTT 
FORT*1TO10 X=INT C RND <1> #912 > + 41 

IFPEEK1Q24+X>032THENX= INT<RND< 1 >* 912>+41 : G0T0235 

POKE1024+X,102 :POKE55296+X,1 

NEXTT 

N=0 

GOTO155 
FRI NT"3" 

PRI NT " MfUftMIató I RECORDS ' " 

PRI NT " «mns PIJNTEGG10 "PN 

IFPN>H5THENPRINT n a>PÌiaiNSERISCI IL TUO NOME":GOTO40O 


2,43 


312 

FRI NT" 

I 

RECORD 

DI 

" AT" 

= "HI 

313 

FRINT" 

II 

RECORD 

DI 

"B t" 

= "H2 

314 

FRINT" 

III 

RECORD 

DI 

"C T" 

= "H3 

315 

FRINT" 

IV 

RECORD 

DI 

"D t" 

= "H4 

316 

FRI NT" 

v 

RECORD 

DI 

"ET" 

= "H5 


<S/N>" 
GOTOl 
!"^ END 


H4=Ho 

H4=H 

H4=H 

H4=PN 


H3=H2 

H3=H2 

H3=PN 

E*=m 


H2=H1 

H2-PN 

ET=DT 


H1=PN 

E$=DT 

L$=C$ 


ET=DT : D$=CT : CT=£T : ET=AT : ( 
DT=CT ■ CT=ET ■ INPUT E $ : GOTO:: 
I NF'UTCT '■ GOT0312 


INPIJ T D T : G0 T0 312 


pr i nt•• -mmm 'rltrr prrt i T AG¬ 
GETTI 1 IFTT=" S " THENP0KE53281,0 
I FTT= "N"THENPRI NT " I HO ! 

GOT033© 

I FPN>H1THENH5=H4 
I FPN>H2THENH5=H4 
I FPN>H3THENH5=H4 
I FPN>H4THENH5=H4 
H5=FN:INPUTET:G0T0312 
I NF'UTAT : GOT0312 

FRINT"I S T PRESENTA" 

PRINT"«PPPPPPPB;8EIT IL BRUCO" 

FRINT")»Ì»CDEVI CONTROLLARE EIT IL BRUCO" 

PRINTMJiPPEHE SI MUOVE SULLO SCHERMO." 

PRINT"fcJPPlDEVI FARGLI MANGIARE I " 

PRINT"»MI1R NON I Zi ■. OGNI VOLTA" 

FRI NT" IPPICHE MANGI UN & TI MUOVI " 

PR I NT " »PPF I IJ •' VELOCEMENTE. NON DEVI " 

FRINT":?>PPrTOCCARE I MURI E LA TUA CODA" 

PRINT"MPPPPPIEFREMI SPACE' PER CONTINUORE" 

GETR$:IFR$=" "THEN640 
GOTO600 

PRINT"™»PPrriJ SEI : SI9MIMMI" 

PRINT"3W»PPC0MANDI : " 

PRINT"SPPPPPPPPPHD" 

PRINT"HPPPPPPPPHr 
PRINT"FPPPPPPPPPI I " 

PRINT"WPPPPPK-C" 

PR I NT " ftPPPPPPPPPII " 

PR I NT " IPPIPPPPPPII " 

PR I NT"IPPPPPPPI SPACE " 

PR I NT " XPPPPREMI •' SFACE •• FER INIZI ARE " 

GETRT ■ IFRT=" "THENF0KE53281 .• 1 : G0T05 
GOTG700 
F0KE54296,15 

FO.RT=1TO10 : POKE54277.- 64 : P0KE54276, 17 : P0KE54273, 17 : P0KE54272, 37 
FORKL=1TO100 : NEXT:P0KE54276,0 :P0KE54277, 0 :P0KE54273,0 : NEXTT 
RETURN 


jOT 0450 
312 


READV. 


ss 















Home Computer 

SC-3000 



SC —3 OOO 
Personal computer 


BBS 


Costa come un videogioco 
ma è un vero computer, 
che ti aiuta a studiare 
e che sa anche giocare con te. 





















SEGA SC-3 




Cascatutto 



“ 


Il palazzo di Pierino è abitato da inquilini poco tranquilli!!! 

C'è chi litiga, chi gioca, chi è un po' distratto. Insomma capita che qualche oggetto voli giu dalla finestra! 
Pierino deve cercare di recuperare quanta piu roba possibile, prima che questa tocchi terra e si rompa 


—PUNTEGGIO 


ombrello = 10 punti 
torta =20 punt1 
scarpone = 30 punti 
oaso fiori = 40 punti 


5 oggett l In terra = 

GAME OUER 

Ogni 2 quadri BONUS d 

i 300 punti 

A=sinlstr& B=destra 

C=continua 



10 REM ************************** 


20 REH * * 
30 REM * CASCATUTTO * 
40 REH * * 
50 RETI * LIST - H&99IO 1984 * 
60 REH * * 
70 REH * SEGA SC-3000 * 
80 REM * Personal Computer * 
90 REM * * 


l 00 REM************************** 

110 REM 
120 REM 

130 SCREEN 1,1 :CLS 

140 CURSOR0,0 SPRINT "CASCATUTTO -spleg 
azione del gioco" 

150 CURSQR0,2 SPRINT "Il palazzo di Pie 
rlno e’abltato da inquilini poco tr 
anqul l l l S 2 9 " 

160 PRINT "C’e’chl litiga,chi gioca,eh 

I e , dlstratto222"; 

170 PRINT "Insomma. capita che qual 

che oggetto oo l I giu’ dalla finestra92 

II 

180 PRINT "Pierino in tutto questo par 
apI 9 l I a cerca di recuperare in strada 
quanta plu’roba possibile prima che to 


echi terra e si rompa22" 

190 CURSOR10, 11 :PRINT "—PUNTEGGIO—" 
200 PRINT "ombrello = 10 punti" 

210 PRINT "torta = 20 punti" 

220 PRINT "scarpone = 30 punt I " 

230 PRINT "uaso fiori = 40 punti" 

240 PRINT 

250 PRINT "5 oggetti In terra = GAME 0 
UER" 

260 PRINT "Ogni 2 quadri BONUS di 300 
punti" 


270 PRINT 

280 PRINT "A=sinistra B=destra C=con 
tlnua" 

290 IF INKEY*="C" THEN GOTO 310 


300 GOTO 290 
310 PU=0 
320 T=2 
330 DIM A*C3J 
340 E=0 
350 XQ=121 
360 K=0 


370 QU=0 

380 FOR B=1 TO 5 :UCB3=0:NEXT B 
390 N=1 
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400 RESTORE 1130:REM A*C13 
4 1 0 GOSUB 430 
420 N=2 

430 RESTORE 1140 :REH A*C23 
440 GOSUB 430 
450 N=3 

460 RESTORE ll50:REn A*C33 
420 GOSUB 490 
480 GOTO 550 
490 A*CN3="" 

500 POR Q=1 TO 23:READ fi :A*CN3=A$CN3rC 
HR$CA3 : NEXT Q 
510 RETURN 
520 REH 

530 REfl * PREPARAZIONE UIDEO * 

540 REfl 

550 SCREEN 2,2 

560 COLORI,7,C0,03-C255,1913,7:CLS 
520 C0L0R6,7 SPRINT SPCC73 ;CHR*C1493 ;:F 
OR U=0 TO 22:PRINT CHR*C22935:NEXT U:P 
RINT CHR$C150 3 
580 C0L0R3,11 
590 RESTORE 1160 

600 FOR Q=1 TO 2l:READ A SPRINT SPCC83 J 
A* C A3:NEXT Q 

610 FOR Q=1 TO 82:C0L0R14:PR1NT CHR$C2 
293 j:NEXT Q 
620 REH 

630 REfl * PEF. CARATTERI GRAFICI * 

640 REfl 

650 PATTERNSIU ,"107CEE1010101408" :REH 
GRAFICA QHBRELLQ 

660 PATTERNS#2, ,, 2A002A2A7E7EC37E ,, :REf1 
GRAFICA TORTA 

670 PATTERNSH3,"39361E1EEFBFFBF3":REM 
GRAFICA SCARPONE 

680 PATTERNSH4, "A345AB187E3C3C18" :REf1 
GRAFICA UASO 

690 PATTERNS85,"818199B0B05A3C3C" 

700 PATTERNS«6,"3C3C3C2424242466" 

710 IF K=5 THEN GOTO 1050 

720 X=73+24*INTCRNDC13*53 

730 Y=31+40*INTCRNDC13*33 

740 B=INTCRNDC13*4+13 

750 UCB3=UCB3+1 

760 IF QU=20THEN GOTO 970 

770 IF UCB3>5 THEN GOTO 740 

780 QU=QU-t-l 

790 REfl 

800 REfl * nOUIflENTO * 


810 REfl 

820 FORY=Y TO 191 STEP T 
830 SPRITE1,CX,Y3,B,15 
840 SPRITE2,CXO,1593,5,1 
850 SPRITE3,CXO,1673,6,1 
860 IF INKEY*="A" THEN XO=XO-T 
870 IF INKEY#="S" THEN XO=XO+T 
880 REM 

890 REH * ACQUISIZIONE PUNTEGGIO * 

300 REfl 

910 IF UPEEKC151083>176 THEN BEEP :K=K + 
1:GOTO 710 

320 IF UPEEKC151083=CUPEEKC151123-83AN 

OUPEEKC151093=UPEEKC151133THEN BEEP :BE 

EP:GOSUB 950:GOTO 720 

930 NEXTY 

940 GOTO 720 

950 PU=PU+B*10 

960 RETURN 

970 E=E+1 

980 IF E/2=INTCE/23 THEN PU=PU+300:T=T 
*2 

990 IF T>=8 THEN T=8 

1000 SCREEN 1,1 :CLS 

1010 CURS0R8,10:PRINT"QUADRO " ;E 

1020 CURS0R8,12:PRINT "PUNTI ";PU 

1030 IF INKEY$="C" THEN GOTO 350 

1040 GOTO 1030 

1050 SCREEN 1,1 :CLS 

1060 PRINT "Sp l acente , ma vi sono cadut 
i 5 oggetti In questo quadroS" 

1070 PRINT "Le regote del gioco mi l mp 
ongono di darvi II fatidico . . . GAflE- 
□UER2S2" 

1080 PRINT 

1090 PRINT "Ul siete fermati al quadro 
N." iE+1 
1100 PRINT 

1110 PRINT "Punteggio finale ";PU 
1120 GOTO 1120 

1130 DATA 229,229,229,229,229,229,229, 

229.229.229.229.229.229.229.229.229.22 

9.229.229.229.229.229.229 

1140 DATA 229,229,224,127,227,229,224, 

127.227.229.224.127.227.229.224.127.22 

7.229.224.127.227.229.229 

1150 DATA229,229, 229,229,229,229,229, 

229.229.229.224.127.227.229.229.229.22 

9.229.229.229.229.229.229 

1160 DATA 1,2,2,2,1,1,2,2,2,1,1,2,2,2, 
1,1,2,2,2,3,3 
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SEGA SC-3000 


Corso Basic 

per il Sega SC-3000 

Da questo numero offriamo ai nostri lettori possessori del SEGA SC-3000, un corso di BASIC articolato in 
tredici lezioni perii loro computer. 

Potrete cosi, di volta in volto, ribattere i programmi presentati e raccoglierli in un unico nostro a cassetto. 
Troverete il piano del corso nel primo listato (Introduzione e Sommario), seguirà la I ° lezione. 


10 CLS 

20 CURS0R3,1:PRINT"LEONI INFORMATICA M 
ILANO":GOSUB1000 

30 CURSORI0,5 SPRINT "NUMERI DI LINEA" 
40 CURSOR0,8 :PRINT "Un PROGRAMMA in BA 
SIC e’ formato " 

50 CURSOR0J 9 SPRINT "da una lista di is 
truzionlj eseguite" 


equenza, a seconda" 

70 CURSQR0j11:PRINT " 
LINEA." 

72 CURSOR0,13:PRINT " 
eve essere NUMERATA*" 

75 CURSOR0,14:PRINT " 
'istruzione, la sua" 

76 CURSOR0,15:PRINT " 
gramma e ’ definita" 

77 CURSOR0,16:PRINT " 
LINEA. " 

78 CURSOR0, 18 :PRINT " 
l ruolo dei" 


ramma precedente" 

90 X$=INKEY$ 

92 IFX$=""THEN90 
95 GOSUB350 

100 CLS :CURSOR0, 1 :PR 
9 i rare i l programma" 

101 CURSOR0,2 :PRI NT 
sa abbiamo aggiunto." :GOSUB1700 

102 CURS0R5,5 :PRINT "INSERISCI L’ETÀ’ 
IN ANNI" :A=0 :CURSOR30,5 :INPUTA 

103 IFA=0GOTO102 

104 CURS0R5,7 SPRINT "TU HAI ";365*A;" 
GIORNI" :CURS0R5,9:PRINT "TU HAI ";12* 


una 

per una, in s 

de l 

NUMERO DI 

Ogn i 

i struzione d 

Come 

si scrive un 

pos i 

zi one nel prò 

dal 

suo NUMERO DI 

Per 

illustrarti i 

NUMERI DI LINEA, 

rito 

rniamo a prog 

NT " 

Facci amo ora 

per 

verificare co 


A;" MESI" 

113 X$=INKEY$ 

114 IFX$=""THEN113 

120 CURSOR0,11 :GOSUB1700 :CURSOR0, 14 :PR 
INT "Ti sarai senz’altro chiesto, pere 
he ’ " 

130 CURSOR0,15:PRINT "i NUMERI DI LINE 
A del progr amma" 

140 CURSOR0,16 :PRI NT "originale fosser 
o multipli di 10." 

150 CURSOR0,17:PRINT "E’ cosi’ perche’ 
in tal modo e’ pos-" 

160 CURSOR0,18=PRINT "s Ibi le introdurr 
e nuoce LINEE" 

170 CURSOR0,19:PRINT "fra quelle già’ 
es Istervt l . " 

171 X*=INKEY$ 

172 IFX$=""THEN171 

180 CLS:CURSOR0,5:PRINT "I NUMERI DI L 
INEA possono" 

190 CURSOR0,6 :PRI NT "essere tutti I nu 
meri," 

200 CURSORI0,7:PRINT "da 1 a 63999." 
210 CURSOR0,9 :GOSUB1700 :CURSOR0, 11 :PRI 
NT "I numeri di linea consentono, inol 
tre, " 

220 CURSOR0,12:PRINT "di cancellare Is 
truz i on 1 , " 

230 CURSOR0,13:PRINT "semplicemente in 
troducendo il numero" 

240 CURSOR0,14:PRINT "di linea relatlv 
o, e battendo CR." 

241 X$=INKEY$ 

242 IFX$=""THEN241 

250 CLS:CURSOR0,2:PRINT "Per CANCELLAR 
E un programma 

260 CURSOR0,3:PRINT "esistente, digita 
re il comando" 
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440 CURSOR0,17:PRINT "10 PRINT" ;2$ ; "In 
serlscl Pela 1 in annI"»2$ 

450 CURSOR0,18:PRINT "20 INPUT A" 

460 CURSOR0,19:PRINT "30 PRINT";2$; "Ha 
I " ;2$;"365*A';;Z$i"9iornl";Z$ 

461 CURSOR0,20:PRINT "35 PRINT"» 2$ } "TU 
HAI " ;Z$;"12*A" ;Z$;"MES1" }Z$ 

465 X$ =INKEY$ 

466 IFX$=""THEN465 
470 RETURN 

500 CLS :CURSQR0,5 :PRINT "UUOI RIUEDERE 
IL PROGRMMA" 

510 CURSORI0j 7 :PRINT "NO" :CURS0R8,7 : IN 

PUT A$:IFA$="SI"THEN10 

520 IFA$="NO" THEN 530 

525 GOTO500 

530 GOTO 24000 

1000 CURSOR0,2:FOR 1=1T038:PRINT : 

NEXTI:RETURN 

1500 FOR 1 = 1TO700 iNEXT JRETURN 

1700 FOR I = 1T038:PRINT ; :NEXT :RETUR 

N 

24000 CLS:?$=CHR$C343: CURS0R3,4 :PRINT 
"FINE LEZIONE 1A" 

25000 CURS0R3,7:PRINT "PER INSERIRE LA 
LEZIONE SEGUENTE" 

26000 CURS0R3,9:PRINT "DIGITARE L’ISTR 
UZI ONE : " 

27000 CURS0R3,11 :PRINT "LOAD";Z$ j"LEZI 
ONE 3";Z$ 

28000 CURS0R3,20:PRINT 


270 CURSORI5> 5 :PRINT "NEW" 

280 CURSOR0,7:PRINT "NOTA." 

282 CURSOR0) 9 SPRINT '"NEW non e’ preced 
uto da un numero" 

284 CURSOR0j10iPRINT "di lineai poiché 
’ e’ un COMANDO " 

286 CURSOR0,11:PRINT "che viene esegui 
to DIRETTAMENTE" 

288 CURSOR0, 12 :PRINT "dal computer." 

341 X$=INKEY$ 

342 I FX$ = ""THEN341 

343 GOTO500 

350 CLS:CURSOR5,0:PRINT "ESEMPIO DI PR 
OGRAMMA":GOSUB 1700 
355 Z$=CHR$ C 34 D 

360 CURSOR0j 3 :PRINT "10 PRINT";Z$;"Ins 
eriscl l’eia’ in anni";Z$ 

370 CURSOR0,4 :PRINT "20 INPUT A" 

380 CURSOR0,5 SPRINT "30 PRINT"; 2$;"Ha. 

" ;Z$ ;"365*A"jZ$;"giorni";Z$ 

390 CURSOR0,7 :GOSUB1700 :CURSOR0,9 :PRIN 
T "Supponi di voler stampare l’età’ in 


400 CURSOR0,10SPRINT "mesi, oltre che 
in giorni." 

410 CURSOR0j11:PRINT "Ora scriviamo la 
seguente istruzione" 

420 CURS0R5,12:PRINT "35 PRINT" ;Z# ; "TU 
HAI " ;Z*;"12*A" ;Z$;"MESI";Z* 

430 CURSOR0,13:PRINT "che si inserisce 
automat icamente" :CURSOR0,15:GOSUB1700 
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Sintetizzatore 

& 


Se dentro di voi si "nasconde " un musicista, questo programma vi aiuterà a scoprirne le capacità. 

Sarete in grado di suonare 12 strumenti diversi: pianoforte, sassofono, xilofono o un qualsiasi altro stru¬ 
mento a vostra scelta. 

Istruzioni inserite nel listato. 


£ 




I MH= 12 ■ SR= 12 : W--33 : HP=0 : LF-0 P0KE54236, 15 

3 RH= 12 : SR= 12 : W=33 •’ HP=6 : LP=0 : P0KE54296, 15 

4 G O S U E1000 : G O S U B3000 

6 REM 

7 REM ROUTINE VOCE 

8 REM 

10 GETK$ : IFK$=""THEN10 ^ 

II GOSUB100 

12 IFK$=""THEN10 

13 P0KE54276, 0 

14 P0KE54277, Rii 

15 P0KE54278.- SR 

16 P0KE54275,HP:P0KE54274,LP 

17 POKE54276.- M 
1S P0KE54273fì : P0KE54272, E 

20 GETKf-^IFK$=""THEN20 

21 GOSUE100 

22 IFK$=""THEN20 

23 POKE54283.- 0 

24 POKE54284,fìE 


26 


31 


POKE54285.- SR 

POKE54282.- HP : P0KE54281, LP 
POKE54283.- W 

POKE54280.- fi POKE54273, E 
GOSUB100 

32 IFK.Ì=" " THEN 30 

33 POKE54230.- 0 

34 POKE 54231.- fi E 

35 POKE54232,SR 

36 POKE54283,HP:P0KE54288,LP 

37 POKE54230,W 

38 P0KE54287,fì•P0KE54286, B 
33 GOTO10 

40 REM 

42 REM 1' OTTfì'v'fì 

43 REM 

100 IF 0=2 THEN200 

101 IF 0=3 THEN300 

102 IF 0=4 THEN400 
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g ìlfHH H« 
Ì« i«t«. sii 

i» 


iaii: :!? ?HF 


103 

IFK$="S"THEN P0KE54276,O'POKE 

265 

IFK$="K"THEN 

R=27 

B=56 : RETURN 

54283,0 :P0KE54290,0 : Ki =""■RETURN 

270 

IFK$="L"THEN 

R=30 

B=141 : RETURN 

105 

IFK*="2"THEN 0=2 : Kt ="" RETURN 

275 

IFK*=";"THEN 

A=36 

B=85 : RETURN 

106 

IFKt="3"THEN 0=3 : K$="" : RETURN 

289 

IFKS="*"THEN 

GOSUB650 

107 

IFK$="4"THEN 0=4 : K$="" ; RETURN 

290 

IFK$="T"THEN 

GOSUB 6 OC 

112 

IFK*="Z"THEN R=28:E=214 : RETURN 

291 

IFK*="B"THEN 

W=33 

K$="": RETURN 

113 

IFK$="X"THEN R=32:B=94: RETURN 

292 

IFK$="i"THEN 

W= 17 

Kf="" : RETURN 

114 

IFK$="C"THEN R=34:B=75: RETURN 

293 

IFK$="II"THEN 

W= 12 : 

? • K$ = " " RETURN 

115 

IFK$="V"THEN R=38:B=126 : RETURN 

294 

IFK$="I'"THEN 

H=65 

K$="": RETURN 

125 

IFK$="B"THEN R=43:B=52: RETURN 

295 

K$="» : RETURN 



130 

IFK$="N"THEN R=45:B=198: RETURN 

296 

REM 



135 

IFK*="M"THEN R=51 : B=97 : RETURN 

298 

REM 3" QTTRVR 


140 

IFK$=","THEN R=57:B=172■RETURN 

299 

REM 



145 

IFK$="."THEN R=64:B=188 : RETURN 

300 

IFKT="tì"THEN 

P0KE54276,0 : POKE 

150 

IFK$=V"THEN fì= 68 : B=149 RETURN 

54283,0 ; P0KE5429C 

* ,0 K$=" " : RETURN 

151 

REM 

301 

IFKf="1"THEN 

0=1 H 

:$="":RETURN 

152 

REM ACQUISIZIONE NOTE 

302 

IFK$="2"THEN 

0=2 : 1 - 

:*=" " •• RETURN 

153 

REM 

303 

IFK$="4"THEN 

0=4 :1 

:;*="" : RETURN 

154 

IFKt="S"THEN fì=30 B=141 RETURN 

312 

IFKT="Z"THEN 

fì=7 

B=53 : RETURN 

155 

IFK$="F"THEN R=36•B=85: RETURN 

313 

IFK$="X' , THEN 

fi =8 

B=23 : RETURN 

156 

IFK*="0"THEN fi=40:B=20O: RETURN 

314 

IFK$="C"THEN 

fi =8 

E=147:RETURN 

157 

I FK$= " ,T " THEN R=4S • B= 127 : RETURN 

315 

IFKÌ="V"THEN 

R=9:B=159 : RETURN 

158 

IFK$="K"THEN R=54:B=111 : RETURN 

325 

IFK$="B"THEN 

R=10 

B=205 : RETURN 

159 

IFK$= "L " THEN R=61 : B=126 •' RETURN 

330 

IFK$="N"THEN 

A=11 

B=114=RETURN 

160 

IFK*=""THEN* R=72 : B=169 : RETURN 

•*“. •-! C* 

-2* • J 

IFK$="M"THEN 

R=12 

B=216:RETURN 

. 180 

I FK$= " THENGOSUB650 

340 

IFK*=","THEN 

R=14 

B=107:RFTURN 

138 

IFK$="T"THENGOSUB600 

345 

IFK$="."THEN 

A=16 

B=47 : RETURN 

131 

I FK$= " ■" THEN 1-1=33 : K*= " " ■ RETURN 

350 

IFK$="/"THEN 

A=17 

E=37 : RETURN 

192 

IFK*="S"THEN U=17 : K$=" "' RETURN 

351 

REM 



193 

I FK$= " II" THEN W= 129 K $= " " RETURN 

352 

REM RCQUISIZIONE 

NOTE 

194 

I FK$= " ■!" THEN U=65 ■ K$= " " : RETURN 

353 

REM 



195 

KT="" : RETURN 

354 

IFK$="S"THEN 

R=7 

B=163:RETURN 

196 

REM 

355 

IFK*="F"THEN 

R=9 

B=21 : RETURN 

198 

REM 2' OTTAVA 

360 

IFK$="G"THEN 

R=1G 

B=60 : RETURN 

139 

REM 

361 

IFK$="J"THEN 

R=12 

B=32 : RETURN 

200 

IFK*=" 3" THEN POKE54276,0•POKE 

365 

IFKf="K"THEN 

R=13 

B=156 : RETURN 

542" 

33 ,8 ^ POKE54290,0 :K$=""; RETURN 

370 

IFK*="L"THEN 

R= 15 

B=70 : RETURN 

201 

IFK$="1"THEN 0=1 :Kf="": RETURN 

375 

IFK$=";"THEN 

R=18 

B=42 : RETURN 

202 

IFK$="3"THEN 0=3 : K$=" " : RETURN 

389 

IFK*="^"THEN 

GOSUB650 

203 

IFK$="4"THEN 0=4 : K$="": RETURN 

390 

IFK$=" f'THEN 

GOSUE600 

212 

IFK$="Z"THEN R=14 : B=107 : RETURN 

391 

IFK$="B"THEN 

W=33 

K$="" : RETURN 

213 

IFK$="X"THEN R=16:B=47: RETURN 

392 

IFK$="""THEN 

U=17 

K$="": RETURN 

214 

IFK*="C"THEN R=17 ; B=37: RETURN 

393 

IFK$="II"THEN 

H=129 : K$="" : RETURN 

215 

IFK$="V"THEN fì=13:B=63: RETURN 

394 

IFK$="||"THEN 

N=65 

KT="": RETURN 


IFK*="B"THEN R=21 : B=154: RETURN 

395 

K$=" " •• RETURN 



230 

IFK$="N"THEN fì=22 •• B=227 : RETURN 

396 

REM 



235 

IFK$="M"THEN R=25:B=177 : RETURN 

397 

REM 



240 

IFK$=","THEN R=28:B=214: RETURN 

398 

REM * 4' OTTAVA 


245 

IFK$="."THEN fì=32 : B=94 =RETURN 

399 

REM 



250 

IFK$="/"THEN R=34 : B=75 :RETURN 

400 

IFK$="S"THEN 

POKE54276,0 : POKE 

251 

REM 

54283,0 :POKE54290,0 : Ki 

•="": RETURN 

252 

REM RCQUISIZIONE NOTE 

401 

IFK$="1"THEN 

0=1 H 

" : RETURN 

253 

REM 

402 

IFK$="2"THEN 

0=2 :1 

:$="" : RETURN 

254 

IFK$="S"THEN R=15•B=70 ; RETURN 

403 

IFK$="3"THEN 

0=3 : (• 

:;$=" " : RETURN 

255 

IFK$="F"THEN fì=18•B=42: RETURN 

412 

IFK$="Z"THEN 

R=3 

B=155 : RETURN 

260 

IFK$="G"THEN R=20:B=10O: RETURN 

413 

IFK$="H"THEN 

R=4 

B=12:RETURN 

261 

IFK$="._T"THEN R=24 •' B=63 : RETURN 

414 

IFKT="C"THEN 

R=4 

B=73 : RETURN 


SE 
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413 IFK$-"V"THEN 
425 IFK$="B"THEN 


0=4:B-20S: 
0=5 : B=103 


RETURN 

RETURN 


430 

TFK$="N"THEN 

0=5 

B=l85 

RETURN 

435 

IFK$="M"THEN 

0=6 

B=103 

RETURN 

4 40 

IFK$="."THEN 

0=7 

B=53 

RETURN 

445 

IFK$="."THEN 

0=8 

B=23 

RETURN 

45U 

IFK$="/"THEN 

0=8 

B=147 

RETURN 

451 

REM 




452 

REM ACQUISIZIONE NOTE 


453 

REM 




454 

IFK$="S"THEN 

0=3 

B=210 

RETURN 

455 

IFKT="F"THEN 

0=4 

B= 139 

RETURN 

460 

IFKT="G"THEN 

0=5 

B=25 

RETURN 

461 

IFK$="J"THEN 

0=6 

E=16 

RETURN 

465 

IFK$="K"THEN 

0=6 

B=206 

RETURN 

47G 

IFK$="L"THEN 

0=7 

E=163 

RETURN 

475 

IFK$=";"THEN 

0=9 

E=21 

RETURN 

489 

IFK*="«-"THEN 

orisi i] 

3650 


490 

IFK$=" f'THEN 

GOSUB600 


491 

IFK$="B"THEN 

W=33 

K$=" " 

RETURN 

492 

IFK$="S"THEN 

W=17 

:KÌ="" 

RETURN 

493 

IFK*="II"THEN 

W=129-K$=" 

' : RETUR 

494 

IFK$="li"THEN 

U=65 

:KT="" 

RETURN 

495 

K$="" : RETURN 




496 

RETURN 




595 

REM 






«f 


9 ^ 


1 



" : K$=""•RE 


"-K$="" : RE 
'• :K$ = " " : RE 


596 REM ROUTINE CAMBIO STRUMENTO 

597 REM 
600 REM 

602 PRI NT " mmrr i TRE < 34 > : " ( f> " 

605 GETQ$:IFQ$=""THEN605 

608 pr i nt "mmtr ; tre < 34 > ;" 

610 I FQ$= " + 11 THENRP= 12 • SR= 12 : U=33 : HF'=0 : LP=0 : PR I NT " *F IRNOFORTE 
TURN 

620 IFQ$="-"THENAD= 9 :SR=0 :U=65:HP=2:LF-255‘PRINT"MOLAVICEMBALO" : K$="": RE 
Tl IRN 

630 IFQ$="0"THENAD=24:SR=15 U=17 HP=0:LP=0:PRINT" JSKILOFONO 
TURN 

640 I FQ$= " * " THENAD= 134 : SR= 15 : W= 17 • HP=0 : LF'=0 • PR I NT " WSRX 
TURN 

641 RETURN 

642 REM 

643 REM CAMBIO STRUMENTI DEFINITI 

644 REM 

645 REM 

650 pr i nt •• o •• 

651 GETXT : IFX$=""THEN650 

652 PRINT ,, J8BWWWMI " ^ 

655 IFX$="9"THENGOSUB800 

660 IFXf >"8"ORX$<"1"THENRETURN 

661 x*val<x$> 

670 OD=OD CX>:SR=SR(X>:HP=HP <X>:LP=LP<X>•W=W<X> 

671 K$="":RETURN 

800 PRINT-'XHE STRUMENTO VUOI ESAMINARE" 

810 INPUT"® DA 1 A 8 "; DE 

820 IFDE>SORDE<1THEN310 

330 PRINT"73_G STRUMENTO CHE VUOI ESAMINARE E' 

840 ARI NT"® IN* (DE) 



l 
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j:: 

Ui=: j ili 



850 PRINT'LSLO STRUMENTO E' SETTATO COME SEGUE:-" 
860 FRI NT "MSii i-,-1 " 


870 FRINT" 

871 FRINT" 

872 FRINT" 

873 FRINT" 

874 FRINT" 

875 FRINT" 

876 FRINT" 

877 FRINT" 

878 FRINT" 

879 FRINT" 
882 INPUT"MS 


ILATTRCK/DECAV fii I L"; AD< DE > ; TRE( 30 >;"fi 


1- 

IkSUNSTAIN/REL. 

K!k";SR<DE>;TAB<30>; "Si!" 
_| " 

INFORMA D 

-ONDA 

fii!L";W <DE> ;TAB(30>; "Bil" 

_j.. [ » 

1 

Ì MURATA 

IMF. H 

, «lk";HF<DE);TAB<30); "Bil" 
-)_1 " 

1 

INDURATA 

1 

IMF. L 

, Bilk";LP<DE>;TAB<30); "Bil" 

_i_J " 


DELLE QUATTRO OTTAVE." 
MENTRE STRI 


SUONANDO" 


USATO." 


VUOI RIDEFINIRLI < S/N> k." Tt 

885 IFT$="S"THEN PRINT" mimMm" ■ GOSUB2010 

886 IF T$="N"THEN895 
895 GOSUB3000 
900 RETURN 

990 REM 

991 REM 

992 REM INTRODUZ. PROGRAMMA 

993 REM 
998 REM 

1000 POKE532800 : F0KE53281,0 
. 1010 FRINT"KXIAO E BENVENUTI CON IL" 

1020 FRINT"» «SINTETIZZATORE 645" 

1030 PRINT"MCQN QUESTO PROGRAMMA PUOI SUONARE UNA 
1048 FRINT"«PUOI CAMBIARE OTTAVA UNA ALLA VOLTA 
1050 FRI NT "ATTRAVERSO I TASTI FUNZIONE kl,2,3,4." 

1060 FRI NT" WJN SET DI DODICI STRUMENTI PUR-' ESSERE 
1080 PRINT"SUUATTRO SONO DEFINITI ALL'INIZIO" 

1090 FRINT"MI RIMANENTI POSSONO ESSERE" 

1100 PRINV’SPIDEFINÌTI MENTRE IL PROGRAMMA" 

1110 PR INTESISTA GIRANDO PREMENDO I TASTI '±'$<'3' " 

1120 INPUT 1 "MaSCELTfì OTTAVA DA 1 A 4 ",0 
1125 FRI NT "SI" 

1130 IF0>40R0<1THEN1120 
1148 RETURN 
2008 

20G2 REM*STRUMENTI DEFINIBILI* 

2083 REM********************** 

2018 PRINT"TTTTTTTTTTTCìME DA ATTRIBUIRE ALLO STRUMENTO N.";DE 
2828 INPUT"» INTCDE> 

2038 INPUT"SLIVELLO ATTACK/DECAV<8-255> "; AD(DE> 

2035 IFAD < DE>>2550RAD < DE ) C8THENPRI NT " SPI AGENTE " ; AD < DE >" E ' FUOR I 
TA2030 

2048 INPUT"SL IVELLO SUNSTAIN/RELEASE<0-255> ";SR<DE > 

2045 IF SR(DE)>2550RSR< DE >COTHENPRINT"SPIAGENTE ";SR < DE>;" E'FUORI RANCE": CO 
TO20 48 

2050 INPUT" SFORMA D'ONDA RICHIESTÀ <S-T-N-P>"; NT(DE> 

2868 IFU*(DE> = "T"THENW(DE> = 17:G0T02998 
2065 I Flit- < DE > = " S " THENW < DE > =33 : G0T02998 
2078 IFW*(DE > = "N"THENW(DE > = 129 : G0T02998 
2075 IFW*(DE > = "P"THENW <DE > =65 =GOTO2100 

2888 FRINT"SUI DISPIACE ";W$<DE>:" NON LO CAPISCO" : GOTO2G50 
2180 INPUT"SIDURATA IMPULSO H <0-15>":HP<DE> 

2110 IF HP<DE>C0THENPRINT"SUI DISPIACE DURATA IMPULSO TROPPO BASSA" 

2128 IF HP<DE>>15THENPRINT"SUI DISPIACE DURATA IMPULSO TROPPO ALTA" 

2138 INPUT"SCURATA IMPULSO L <8-255>";LP(DE) 


PANCE" : GO 


GOTO2180 
G0T02108 


sv 



















H5H Hi :Hii« Hi 
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IF LP<DEK6 THENPRINT"JW11 DISPIACE DURATA IMPULSO TROPPO BASSA" ■'G0T02 
IF LP < HE ) >255THENPR I NT "imi DISPIACE DURATA IMPULSO TROPPO ALTA" : G0T02 


a 

a «aia ii i ii ii i ii ii ii i uà 

a «aia li i ii ii i ii ii ii i uà 

a «aa i i i i i i i i i la 

a Base IX ic IV IB in imi, i. i/is 


2140 
ISO 

2150 

ISO 

2930 RETURN 
3000 FRINT"ad 
301O FRINT" 
3020 PRINT" 
3040 PRINT" 
3050 PRINT" 


3060 
3100 
3105 
3110 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

*WIir- 

ILSTRUMENTI 


Ei 

J 

IL 

OTTAVE 


n 

1" 

i ii 

j. — 

ILPIRNOFORTE 

T + 

1 — 

Ei 

IL 

PRIMA 

1 

Ei 1 

3120 

PRINT" 

IlCLAVICEMB. 

T - 

Ei 

IL 

SECONDA 

ci 

Ei 1 

3130 

PRINT" 

ILXILOFONO 

T 0 

Ei 

IL 

TERZA 


Ei 1 

3140 

PRINT" 

ILSRX 

? * 

Ei 

IL 

QUARTA 

4 

Ei 1 


3160 FORI = 1TOS 

3165 IF I m I > = ""THENINT(I> = "NON USATO" 

3170 PRI NT "II" ; I NT < I > ; T AB ( 13 ); I ; TRE < 17 ) 
3180 NEXTI 

3190 PRINT" L -- 1 - 

3200 PR I NT " TTTTTTTTT 

321G FRINTTfìB< 17) " I- 

3220 PRINTTfìB(17)"IL FORMA D'ONDA 


"ii 


j " 


H " 

Ei I " 


3230 

PRINTTAB(17)" 1- 

-1 

3240 

PRINTTfìB<21)"LSINUSOIDALE 

FI" 

3250 

PRINTTfìB < 21)"LTRIANGOLARE 

po il 

3260 

FRINTTfìB<21)"LEUMORE 

F5" 

3270 

PR I NTTfìB-:.' 21)" Li MPULSI 

F7" 

3280 

3400 

PRINT"» BATTI '!I*L' POI 

RETURN 

'Tit’L'PER 
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Sfida intergalattica 


ROM, generale supremo di un pianeta nemico, vi sfida ad un duello-, la posta in palio è la salvezza della 
Terra. 

Controllate la vostra navetta blu mediante i seguenti tasti: 

w=Alto 

x=basso 

a=sinistra 

d= destra 

s=laser 


0 P0KE54296,10 = P0KE54277,0 : P0KE54278 .• 240 : P0KE54276, @ : P0KE54276, 129 : SX=0 

1 P0KE54272,0 : P0KE54273,0 : F'RINT"n" :POKE53280,4 :P0KE53281,4 = 00=54272 

2 V=53248 :POKE2040, 192 :POKEV+39,14:POKE2041,193 :POKE2042,194 :POKE2043, 194 

3 POKE2044,195 : POKEV+40, 5 :POKEV+43,0 : POKEV+28,31 : POKEV+37,2 :POKEV+38,7 

4 FORI=0TO254 : PERDO : POKE12288+1, Q : NEXT : POKEV+21,31 •' POKEV+29,19: POKEV, 100 

5 POKEV+2,200 :POKEV+4,50 :POKEV+6,230 : POKEV+8,165 

6 GOSUB4000 

7 PE=PEEK(V+30>:PE=PEEK(V+31>:X=100 :V=60:D=4: X1=200 : V1 = 120 :D1=-4 

10 pr i nt "«pi^iPiPiPiPiPiPiPiPiPiPMPiPiPiripjijr^piiir iMMPr’ninr 

12 PRINT" 3 V 

14 print" a ▼ ▼ 

15 PRINT"a H":Tfì=INT<RND<l)*10) 
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4815 FRINT"■VOGLIO I'RRTI LR POSSIBILITÀ" PI SALVARE LR TERRA." 

4020 PRINT" MafTT SFIDO AD UN DUELLO.SPAZIALE, NATURALMENTE!" 

4025 PR I NT " 'fllACCETTI ? < S/N > " 

4026 GETA$ : IFA$="N"THENPRINT"WSCODARDO!! !" : END 
4028 IF R$<>"S"THEN4026 

4O30 PRINT"IL DUELLO AVRÀ" LUOGO NELL'ATMOSFERA DI MARTE." 

4049 PRINT'LBJsE" MIO DOVERE AVVERTIRTI CHE UNO SOLO" 

4045 FRINT" =0EI TUOI COLPI PUÒ" DISTRUGGERMI." 

4050 PRINT"MiFAI ATTENZIONE A NON SCHIANTARTI!" 

4060 FRINT"aftFREMI "SPACE" QUANDO SEI PRONTO." 

4065 GETfìi : IFfitO" "THEN4065 

4066 PR I NT " 71" : POKEV+9, O 

4067 P0KE53281,0:POKE53280,O 
4070 RETURN 


5000 POKE53280,4 :P0KE53281,4 = PRINT"73"■P0KE54273, 0 

5001 PRI NT"H", : PORI = 1TO12 

5002 PRIMI" I I I I I I I I I IIIIIIIIIIIIIIIII I I I I I I I I I I I I I I"; 

5003 NE/T 

5010 PRINT"iARRIVEDERCI,MORTALE.HAI COMBATTUTTO BENE" 

5020 PRINT"afófcElUALCHE ALTRO TERRESTRE OSA SFIDARMI3S/N" 

5025 GETRI: IFA*="S"THENG0SUB4966 : GQT07 
5030 IFAt="N"THEN5035 

5035 FRINT"«BENISSIMO.LA TERRA PRESTO SARA" MIA!!!" 

5040 END 

6000 POKEV+23, 16 : POKE53280,4 :P0KE53281,4 : POKEV+8, 150 : POKEV+9,1OO : P0KE54273,0 
6005 P0KE54296,O:P0KE54296,15-P0KE54276,G:P0KE54276, 17 
6010 PRINT"«pIìMi!M?I(!MpI!!I(!IfM« MI HAI COLPITO, TERRESTRE." 

6020 FORI = 1T0200 :P0KE54273,I : NE/T :POKEV+9,0 :FORI = 1QGTO1STEP-.5 

6025 POKE54273,1 •' NE/T : FOR I = 10TO50STEP. 5 

6026 POKE54273,I : NE/T :POKEV+23,6 : POKEV+29,0 : POKEV+8, 150 : POKEV+9,10O 

6028 FORI = 1T058 STEP.5 :P0KE54273,1 : NE/T :POKEV+8,8 :POKEV+9,O:FORI-28T01STEP-.2 

6029 PGKE54273,I : NE/T :P0KE54273,0 

6030 FRINT"!a CIAOOOOOOO! ! ! ! ! ! ! ! Il" 

6835 GETAT : FOR I = 1105888 : NE/T • PRI NT "73" 

6848 END 

9800 DAT Fi8,0, 0,0, 0,0, 0,0 .. 0,0,0,0,0, 0,0, 3, 0,0,3,0,0.3 132,0 , 1 9,240 _■ 0 
9010 DATR7,176,0,67,247,128,7,183,32,83,247,245,2,166,245,2,240,G 
9G20 DATA G.0,0,8,0,0,0,0,0,G,0,0,0,0,0,99 

9830 DAT A 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,192, 8,6,192,8,3,192,8,3,192,8,15,196 
9848 DATA 0,14,283,2,223,193,8,222,288,95,223, 197, 95,218, 128,8,15,128,8,8,8,8,8 
9058 DATA 0,G,8,8,0,8,8,0,G,0,33 

9060 DATA 0,0,8, 0,8,0,0, 0,0,0,0,0,0,0,0,0,0,0 , 0,0 , 0,0 , 0,0,0,0,0,0,0,0,0,4,0 
9O70 DAT A 0,21,0,0,127,64,0,21,0,0,4,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
9090 DATA 68,8,68,12,178,48, 15,178,248,14,178,176,2,138,128,2,8,128,2,68,3 28 
9180 DATA 18,68,168,18,8,168,18,8,168,3,8,32,8,178,32,8, 158,32,8,158.32,88,178 
9118 DATA 37,88,8,37,98,8,165,21,178,84,21,138,84,5, 176, 88, 5,178,88,5,178,80 
68808 PE=@EEK<197> : I FPEOl THENRETURN 
6G020 GOTO 6802O 
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Fatturazione magazzino 

Il sistema di MAGAZZINO descritto in queste pagine è stato realizzato per operare su una configura¬ 
zione hardware di questo tipo. 

1 MPFII 

1 TASTIERA ESTERNA/TEM (opzionale) 

1 INTERFACCIA PER DRIVE DISK AD UNA O DUE USCITE (FDI-1 o FDI-2) 

1 O 2 DRIVE DISK (FDD-1 oFDD-2) 

1 MONITOR O TV 

I STAMPANTE EPSON (O SIMILARE) CON RELATIVA INTERFACCIA (PIK) 

GESTIONE DI MAGAZZINO 

II programma permette di archiviare circa 1600 articoli su un solo dischetto senza doverlo togliere o sosti¬ 
tuire. 

È prevista l'espansione a due drivers in linea per un totale di 3200 articoli. Tuttavia, restringendo la stringa 
alfanumerica della descrizione articolo, si possono immagazzinare più di 4500 articoli. 

Con l'accensione dell'apparecchio, appare sullo schermo il numero totale degli articoli presenti a magaz¬ 
zino e la descrizione del primo e dell'ultimo. Appare anche la domanda: 

VUOI INIZIALIZZARE IL BILANCIO? 

Questa opzione è prevista per negozi che abbiano vendita al banco. Rispondendo SI, vengono memoriz¬ 
zate, fino alla prossima inizializzazione, tutte le operazioni di vendita atte a fornire il BILANCIO GIORNA¬ 
LIERO. 

MENU 

viene presentata la seguente scelta: 

0 FINE PROGRAMMA 

1 INSERIMENTO ARTICOLI 

2 RICERCA ARTICOLI 

3 CARICO 

4 CATALOGO 

5 FATTURE 

6 CANCELLAZIONE ARTICOLI 

7 VENDITA ARTICOLI 

8 BILANCIO GIORNALIERO 

0-FINE PROGRAMMA 

Poiché il calcolatore ha un programma residente in memoria e su disco, non si può spegnere la macchina 
senza prima passare dalla fase di fine programma. Uno spegnimento senza tale accorgimento, può cau¬ 
sare PERDITA DI DATI. 

1. INSERIMENTO ARTICOLI 

Sotto la dicitura: 

SCRIVI L’ARTICOLO DA INSERIRE 

è possibile descrivere l'articolo in maniera alfanumerica. 

Ricordarsi che il calcolatore registrerà i dati cosi come verranno scritti e li ricercherà nella stessa maniera. 
Ogni spazio viene interpretato e riconosciuto come tale sia nell'inserimento che nella ricerca 
Es.: se si scrive 

VITE 8MM 
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E poi si inserisce 

VITE8MM 

il calcolatore riterrà i due articoli come distinti. 

È pertanto indispensabile identificare un articolo nella maniera più univoca possibile 
Vi sono 32 caratteri alfanumerici per descrivere l'articolo e i caratteri eventualmente scritti oltre il 32, ver¬ 
ranno ignorati 

Per ogni articolo il calcolatore chiederà: 

PREZZO DI COSTO.? 

scrivere una cifra inferiore a 9999999 

< PREZZO SCONTATO ( + %).? 

PREZZO RIVENDITORE ( + %).? 

PREZZO AL PUBBLICO ( + %).? 

QUANTITÀ.? 

PERCENTUALE IVA.? 

Ultimato l'inserimento apparirà in reverse la scritta: 

(CTRL-F = FINE: (SPACE) = CONTINUA 

Pertanto, se non vi sono altri articoli da inserire occorrerà premere il tasto CTRL+F per tornare al MENU, 
mentre per continuare l'inserimento, si dovrà premere la barra spaziatrice. 

2- RICERCA ARTICOLI 

Si presenterà la domanda: CHE ARTICOLO VUOI? 

Per effettuare la ricerca, il calcolatore ha bisogno di riconoscere l'articolo cosi come è stato inserito. Tutta¬ 
via per comodità, basta digitare anche solo il primo carattere alfanumerico perché vengano evidenziati 
. tutti gli articoli che iniziano dal carattere (o dai caratteri) digitati. 

Naturalmente più sono i caratteri identificativi digitati, più si restringe la ricerca del calcolatore. 

Per uscire dalla fase di ricerca, occorre premere CTRL+F, mentre per continuare occorre premere la barra 
spaziatrice. 

3- CARICO 

Sotto la dicitura: 

CHE ARTICOLO VUOI? 

# 

verranno caricati articoli già esistenti a magazzino per effettuare la movimentazione (aggiunta di nuove 
quantità) e la eventuale variazione di costo. 

Sullo schermo apparirà: 

COSTO SOSTENUTO . 

PREZZO RIVENDITORI . 

PREZZO AL PUBBLICO .. 

QUANTITÀ . 

PREZZO SCONTATO . 

PERCENTUALE IVA . 

MOVIMENTO .? 

Nel MOVIMENTO sono accettate quantità in entrata fino al raggiungimento della quota magazzino 
9999999. 

_ 
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VARIAZIONE DI COSTO? 

Con risposta affermativa, il calcolatore sostituisce il dato con il vecchio costo ed aggiorna immediatamen¬ 
te i vari listini. Con riposta negativa si può tornare al MENU con le usuali procedure del tasto CTRL+F o 
continuare con la barra spaziatrice. 

4-CATALOGO 

Si ha la possibilità di stampare o far apparire su video tutti o parte degli articoli presenti a magazzino. 

FI 901 PII 0SW090QUALE ARTICOLO VUOI COMINCIARE 
FINO A QUALE ARTICOLO VUOI ARRIVARE 

Per ottenere la stampa di TUTTI gli articoli, premere solo RETURN ad ogni domanda. 

Si ha ora la possibilità di scelta tra: 

1 CATALOGO COMPLETO 

2 CATALOGO PER RIVENDITORI 

3 CATALOGO PER IL PUBBLICO 

4 INVENTARIO 

Digitando i si ottiene la stampa di: 

Articolo 
Aliquota IVA 
Prezzo pubblico 
Prezzo rivenditori 
Prezzo scontato 
Prezzo di costo 
Progressivo di carico 
Quantità 

Digitando 2 si ottiene la stampa di: 

Articolo 
Aliquota IVA 
Prezzo pubblico 
Prezzo rivenditori 

Digitando 3 si ottiene la stampa di: 

Articolo 
Aliquota IVA 
Prezzo pubblico 

Digitando 4 si ottiene la stampa dell'inventario a valore 

5 - FATTURE 

Vengono chieste le informazioni essenziali per la compilazione e la stampa della fattura 
La stampa è dimensionata per moduli 25 cmx 11 pollici (fino ad un massimo di quattro copie). 

DATA? 

Viene accettato qualsiasi segno tra le date. ES; 14/5/83 o 14.5.83 o 14 5 83. 

DESTINATARIO FATTURA 

L'indirizzo va composto usando il cursore e la barra spaziatrice, come in una normale macchina per scrive¬ 
re, su tre righe 


# 

# 
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CODICE PREZZO (0,1,2,3) 

Selezionare il listino desiderato. Con zero di digiterà il prezzo desiderato. 

Ora il calcolatore pone in evidenza, nell'angolo alto a sinistra, il destinatario della fattura e qualche riga 
più in basso 

DESCRIZIONE DEI BENI 

Digitando l'articolo apparirà la quantità a magazzino; scrivere la quantità che dovrà apparire in fattura 

N.B. La quantità che viene scaricata sulla fattura viene automaticamente aggiornata sul magazzino 

Se si considera terminata la compilazione della fattura e l'articolo successivo non interessa, per passare 

alla fase successiva, premere semplicemente il tasto RETURN 

PREDISPONI LA STAMPANTE ED IMPOSTA 
IL NUMERO DELLA FATTURA (0 PER LA BOLLA) 

Accendere la stampante ed accertarsi che il posizionamento dei moduli sia corretto. 

7-VENDITA ARTICOLI 

Il programma suppone la vendita al banco e fornisce le indicazioni che servono ad una rapida ricerca. I ri- 
lail 


sultati delle vendite verranno elaborati nel BILANCIO GIORNALIERO. 

CODICE? 

Viene proposta la scelta tra 1-2-3 corrispondenti ai prezzi rispettivamente di: COSTO-RIVENDITORE- 
PUBBLICO. 

L'esigenza di digitare un numero di codice conosciuto al solo operatore è dettata dalla natura della vendi¬ 
ta al banco per la quale, per ovvie ragioni di segretezza, non sarebbe stato possibile evidenziare i tre 
prezzi contemporaneamente sullo schermo. 

CHE ARTICOLO VUOI? 

Digitare correttamente l'articolo. 

QUANTITÀ VENDUTA? 

La quantità digitata viene immediatamente scaricata dal magazzino. Tutti i dati della vendita vengono ri¬ 
portati nel BILANCIO GIORNALIERO 

Appare quindi, sul video quanto il cliente deve al netto di IVA e, se il cliente acquista più di un articolo, il 
totale generale 

8 - BILANCIO GIORNALIERO 

Concepito come risultato finale di una giornata di vendite, questa fase del programma dura tuttavia, ac¬ 
censioni e spegnimenti della macchina compresi, fino alla successiva inizializzazione. Fornisce il risultato e 
la elaborazione di tutte le vendite effettuate ed esattamente: 

Totale al netto di IVA 
Incasso totale al netto di IVA 
Totale spese (totale costi) 

Utile netto (incasso meno spese) 

IL BILANCIO GIORNALIERO può essere consultato non solo a fine giornata, ma in qualsiasi momento si 
voglia conoscere l'andamento della gestione. Trattandosi di vendite a corrispettivi è stata volutamente 
omessa l'indicazione dell'IVA. 


7 <? 
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FATTURA ACCOMPAGNATORIA N. 1 


DEL 14.05.83 




PAGAMENTO 


DESTINATARIO 




RIMESSA DIRETTA 


DIGITEK COMPUTER 





VIA MARMOLADA N. 9/11 





43058 SORBOLO (PR) 



DESCRIZIONE 





m 

DEI BENI UM 

QUANTITÀ 

PREZZO 

IMPORTO 

% IVA 


1 COMPUTER 





$ 

MPF-II N 

10 

550000 

5500000 

18 


2 STAMPANTE 






EPSON N 

1 

660000 

660000 

18 

• 

IVA IVA 

IVA 

IVA 18% 

TOTALE 



IMPONIBILE IMPONIBILE 

IMPONIBILE 

IMPONIBILE 

IMPONIBILE 

TOTALE FATTURA 

» 



61600000 

6160000 

7268800 


IVA IVA 

IVA 

IVA 

IVA 


% 



1108800 

1108800 



BOLLA ACCOMPAGNATORIA N. 9 


DEL 26.09.83 



% 

PAGAMENTO 


DESTINATARIO 




RIMESSA DIRETTA 


DIGITEK COMPUTER 


f- 



VIA MARMOLADA N. 9/11 





43058 SORBOLO (PR) 









DESCRIZIONE 






DEI BENI UM 

QUANTITÀ 

PREZZO 

IMPORTO 

% IVA 


1 COMPUTER 






MPF-11 N 

10 





2 STAMPANTE 





% 

EPSON N 

10 





10 PS = 1302:0T = 1305: POKE 30434,208: 

104 POKE 34,0 


190 PRIMT Dfì'BL0AD TABV,A'{ PEEK (10 


POKE 30435,08 

106 HO) =2 


7) ♦ PEEK (108) * 256 ♦ 75',DI' 


13 CALL 0T 

107 1(1) = 8 


200 POKE 216,0 



14 CATft 4A 

108 1(2) = 10 


210 PRIMT DSJ'OPEN 

•!C*;'l,L57,Dr 


1j dUIU 6U 

20 F0R I = 1 TO SP - LEN (ES) 

109 113) = 15 


220 IF U2 ) 0 THEN 

PRINT DH'OPEN ';C* 


22 $T* = STI ♦ • ’ 

110 1(4) = 18 


!'2,L57,Dr 



OA MCYT 1 • or T UDII 

111 1(5) = 20 


230 PRIMT : PRIMT 

' IL MAGAZZINO ' 


RtA1 1• Kh1UKN 

112 1(6) = 35 


240 IF AHO) < 0 THEN 360 


60 REM 

113 1(7) = 38 


250 PRIMT : PRINT 

' CONTIENE '{AHO) ! 


74 U1 = 1368 

114 1(8) = - 1 


' ARTICOLI' 



76 1)2 = 1772 

115 1(9) = - 1 


260 IF AHO) = 0 THEN 340 


80 DIM AUDI ♦ U2 + 1): REM DEVE ESS 

120 HOME 


270 BC = AHI): GOSUB 8990 


ERE IL PRIMO DIN DEL PR06 

130 POKE 34,2 


280 INPUT A$ 



90 DIN A*(15) ,8(15) ,P(15) ,U$(15),IV(15) 

140 PRIMT ' NA6AZZINO' 

290 BC = AHAHO)): 

GOSUB 8990 



150 C$ = 'MAGAZZINO* 




95 DIM A(40,3J,Z*(40) 

160 «$=!$♦ '«RITE' ♦ C* ♦ *,R* 

300 INPUT Al* 



100 DIN AA(3),AB(3),AC(3) 

170 R* = D$ ♦ 'READ' ♦ C* ♦ *,R' 

310 PRINT D$ 



102 D$ = CHR* (4) 

180 0NERR 60T0 9070 

320 PRINT : PRINT 

' DALL’ARTICOLO ': P 
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RINT : PRINT TABI 3)A$ 

330 PRINT : PRINT : PRINT * ALL’ARTICO 
LO •: PRINT : PRINT TABI 3)A1$ 

340 PRINT : PRINT 

410 INPUT 'VUOI INIZIALIZZARE IL BILANC 
IO? ';W 

420 IF N$ = •SI* THEN 450 

430 IF Ni < > 'NO* THEN 410 

440 60SUB 8390 

450 VTAB 1 

460 POKE 36,0 

470 PRINT * NAGAZZINO 


480 

HONE 




490 

PRINT : PRINT 

TABI 

7) '0. 


INE 

PROGRAM»' 




500 

PRINT I PRINT 

TABI 

7)'l. 

... INSERIR 

ENTO ARTICOLI' 




510 

PRINT : PRINT 

TABI 

7)'2. 


ERCA ARTICOLI' 




520 

PRINT : PRINT 

TABI 

7)'3. 







530 

PRINT : PRINT 

TABI 7)*4. 



.CATALOGO' 




540 

PRINT : PRINT 

TABI 

7)'5. 



..FATTURE' 




550 

PRINT : PRINT 

TABI 

7)'6. 

.CANCELLAZ 

IONE ARTICOLI' 




560 

PRINT : PRINT 

TABI 7)'7. 

.VEN 

DITA ARTICOLI' 




570 

PRINT : PRINT 

TABI 

7)'8. 

...BILANCI 


0 GIORNALIERO* 

580 PRINT 

590 ONERR GOTO 630 

600 PRINT .* PRINT I INPUT * INPOSTA IL N 

UNERO DEL PR06RANHA....';F 

610 IF F ) = 0 AND F < - 8 THEN 640 

620 VTAB 21: GOTO 600 

630 VTAB 23: RESUNE 

640 POKE 216,0 

650 VTAB 1 

660 ON F ♦ 1 GOTO 670,750,1400,1590,251 

0,3580,2120,7210,8810 

670 REN 

680 REN FINE PR06RANNA 
690 REN 
700 HONE 

710 PRINT D$;*BSAVE TAB'i'.A'S PEEK (10 
7) ♦ PEEK (108) * 256 ♦ 7j*,L*;(Ul ♦ U2 
♦ 1) * 2!*,DI* 

720 PRINT D$;*CLOSE *!C$;*1 
725 60SUB 8280 

730 IF U2 > 0 THEN PRINT D*!'CLOSE *;C 
♦ì*2* 

740 60T0 6830 
750 REN 


760 REN INSERIMENTO ARTICOLI 

770 REN 

780 POKE 36,20 

790 PRINT -INSERIMENTO ARTICOLI' 

800 HONE 
810 PRINT 

820 IF AKO) < U1 ♦ U2 THEN 890 
830 PRINT 

850 PRINT * IL NA6AZZIN0 E’ PIENO : NO 
N E’ POSSI- BILE INSERIRE NUOVI ARTICO 
LI 

860 NORNAL 
870 GET E$ 

880 60T0 450 

890 PRINT 'SCRIVI L’ARTICOLO DA INSERIR 
E* 

900 VTAB 12 
910 INPUT '';B$ 

920 IF B$ = ** THEN 900 
930 B$ = LEFTf IBS,32) 

940 60SUB 5440 

950 IF NOT FG THEN 980 

960 PRINT : PRINT 'L’ARTICOLO E’ 6IA’ 

PRESENTE* 

970 GOTO 1370 
980 Al$ = B$ 

990 HONE 

1000 PRINT : PRINT Al« 

1010 PRINT : PRINT 'PREZZO DI COSTO.... 


1020 60SUB 5730 

1030 IF F3 < 0 OR F3 > 99999999 THEN 6 
OSUB 5810: 60T0 1030 
1040 B1 = F3 

1050 PRINT : PRINT 'PREZZO SCONTATO 1*1 

).'I 

1060 60SUB 5730 

1070 IF F3 < 0 OR F3 > 999 THEN 60SUB 
58101 60T0 1070 
1080 EO = F3 

1090 PRINT : PRINT 'PREZZO RIVENDITORI 

(♦I).'! 

1100 60SUB 5730 

1110 IF F3 < 0 OR F3 > 999 THEN 60SUB 
5810! GOTO 1110 
1120 CO = F3 

1130 PRINT : PRINT 'PREZZO AL PUBBLICO 

(♦K.'5 

1140 GOSUB 5730 

1150 IF F3 < 0 OR F3 > 999 THEN 60SUB 
5810: 60T0 1150 
1160 DO : F3 

1170 PRINT : PRINT 'BUANTITA’. 


1180 GOSUB 5730 


1190 IF F3 < 0 OR F3 > 99999 THEN 60SU 
B 5810! GOTO 1190 
1200 E1 = F3 
1240 HI = E: 

1250 PRINT : PRINT ' PERCENTUALE IVA.. 


1260 60SUB 5730 

1270 FOR B = 0 TO 9: IF I(B) = F3 THEN 
1280 

1272 NEXT 

1274 60SUB 5810: GOTO 1270 

1280 61 = F3 

1285 62 = B 

1290 PRINT 

1300 F = AKO) ♦ 1 

1310 60SUB 5840 

1320 FOR FI = AKO) TO AU STEP - 1 
1330 AlIFl ♦ 1) = AKF1) 

1340 NEXT 

1350 AKO) = F 

1360 AKAU) = F 

1370 6OSUB 5580 

1380 IF FG = 0 THEN 450 

1390 GOTO 800 

1400 REN 

1410 REN 

1420 POKE 36,24 

1430 PRINT 'RICERCA ARTICOLI* 

1440 HONE 

1450 PRINT : PRINT 'CHE ARTICOLO VUOI ? 

I 

1460 VTAB 12 
1470 INPUT ";B$ 

1480 IF B$ = " THEN 1460 
1490 W = LEFTI (B$,20) 

1500 PRINT : PRINT 
1510 60SUB 6460 
1520 IF NOT F6 THEN 1560 
1530 F = AKF) 

154C GOSUB 5980.’ REN LETTURA FILE 
1550 60SUB 6890: REN ENISSIONE A VIDEO 

1560 VTAB li GOSUB 5620: REN FINE 0 CO 
NTINUA 

1570 IF F6 THEN 1440 
1580 GOTO 450 
1590 REN 

1600 REN VENDITE V ACQUISTI 
1610 REN 
1620 POKE 36,24 
1630 PRINT ' CARICO* 

1640 HONE 

1650 PRINT : PRINT 'CHE ARTICOLO VUOI ? 

• 

1660 VTAB 12 


7V 




























1670 INPUT ";BS 

1680 IF B$ = •' THEN 1660 

1690 BS * LEFTS (BS,20) 

1700 PRIMI ; PRINT 
1710 60SUB 6460 
1720 IF NOT FG THEN 2090 
1730 F = AKF) 

174C GOSUB 5980 

1750 60SUB 6890 

1770 VTAB 20 

1780 PRINT 1 MOVIMENTO... 

1840 60SUB 5730 

1850 IF E1 ♦ F3 < - 9999 OR E1 ♦ F3 ) 

99999 THEN 60SUB 5810: GOTO 1850 

1870 E1 = E1 ♦ F3 

1875 IF F3 > 0 THEN HI = HI ♦ F3 

1880 VTAB 12 

1890 ES = STRS (Eli 

1900 HTAB 26 

1910 PRINT •.': 

192C HTAB 33 - LEN (ES) 

1930 PRINT ES 

2040 VTAB 22: INPUT * VARIAZIONE DI CO 
STO? (S/N) ';ZS 

2050 IF LEFTS (ZS,1) > < ’S* THEN 60 
TO 2080 

2060 PRINT : PRINT • NUOVO PREZZO. 

I a 

• I 

2062 GOSUB 5730 

2064 IF F3 < 0 OR F3 > 99999999 THEN 6 

OSUB 5810: 60T0 2064 

2070 Bi = F3 

2080 GOSUB 5840 

2090 GOSUB 5580 

2100 IF F6 THEN 1640 

2110 GOTO 450 

2120 REM 

213C REN CANCELLAZIONE ARTICOLI 

2140 REN 

215ó Purè 36,18 

2160 PRINT 'CANCELLAZIONE ARTICOLI* 

2170 HOME 

2180 PRINT : PRINT 'CHE ARTICOLO VUOI C 
ANCELLARE ?' 

2190 VTAB 12 
2200 INPUT "{BS 
2210 IF B* = " THEN 2190 
2220 BS = LEFTS (BS.20) 

2230 PRINT : PRINT 
2240 GOSUB 6460 
2250 IF NOT F6 THEN 2480 
2260 FI = F 
2270 F2 = AKF) 

2280 F = F2 
2290 GOSUB 5980 


2300 GOSUB 6890 
2310 VTAB 20 

2320 INPUT ' VUOI CANCELLARE L’ARTICOL 

0? *;es 

2330 IF ES = 'NO' THEN 2480 
2340 IF Et > < 'SI* THEN 2310 
2350 At(0) * AKO) - 1 
2360 FOR F = FI TO AKO) 

2370 AKF) = AKF ♦ 1) 

2380 NEXT 
2390 F * AKO) ♦ 1 
2400 60SUB 5980 
2410 FOR F = i TO AKO) 

2420 IF AKF) = AKO) ♦ 1 THEN 2450 

2430 NEXT 

2440 60T0 2480 

2450 AKF) * F2 

2460 F = F2 

2470 60SUB 5840 

2480 60SUB 5580 

2490 IF FG THEN 2170 

2500 60T0 450 

2510 REN HH I H l HHH l HHHm 

2520 REN CATALOGO 

2530 REN 

2540 PONE 36,32 

2550 PRINT 'CATALOGO' 

2560 HOME 

2570 PRINT : INPUT 'BA QUALE ARTICOLO V 
UOI COMINCIARE '{BS 

2580 B$ « LEFTS (B$,20) 

2590 PRINT : INPUT 'FINO A QUALE ARTICO 
LO VUOI ARRIVARE *;E2$ 

2600 E2S = LEFTS (E2S,20) 

2610 PRINT 

2620 INPUT 'VUOI USARE LA STAMPANTE ? ' 
SES 

2630 VTAB 10 

2640 IF ES = 'NO' THEN 3290 
2650 IF ES > < 'SI' THEN 2620 

2660 PRINT ' 1.CATALOGO 

COMPLETO' 

2670 PRINT : PRINT ' 2.CATALOGO 

PER RIVENDITORI* 

2680 PRINT : PRINT • 3.CATALOGO 

PER IL PUBBLICO' 

2690 PRINT : PRINT ' 4. 

.INVENTARIO' 

2700 PRINT : INPUT 'CHE ROUTINE DESIDER 
I? 1 1,2,3,4 )",ES 

t/l\) KK = INI l VAL ItSJ) 

2720 IF PR < 1 OR PR > 4 THEN VTAB 15: 
GOTO 2700 

2730 IF PR = 4.THEN POKE 34,22: GOTO 8 
570 . 

2740 VTAB 22: HTAB 1: PRINT 'IMPOSTA (C 


TRL-F) PER FINE STAMPA' 

2745 POKE 34,22 

2750 CALL PS: PRINT CHRS (15): POKE 12 
94,127 

2755 PRINT CHRS (27);'C'{ CHRS (66); C 
HRS (27);'N'J CHRS (6) 

2760 PRINT : PRINT 

2770 PRINT TABI 20)*H CATAL060 DEGLI 
ARTICOLI H' 

2800 PRINT : PRINT 'DALL’ ARTICOLO 'JB 

*;• •; 

2810 IF BS = " THEN PRINT 'NUMERO l'J 

2830 PRINT 'ALL’ ARTICOLO ';E2S; 

2840 IF E2S = " THEN PRINT 'NUMERO '{ 
AKO); 

2860 PRINT ' ': PRINT ' ' 

2870 STS = 'C. DESCRIZIONE 

‘IVA! P. PUBB.!': IF PR > 2 THEN P 
RINT STS: GOTO 2960 

2920 STS = STS ♦ ' P. RIV.!': IF PR > 1 
THEN PRINT STS: 60T0 2960 
2940 STS = STS ♦ ' P. SCON.! P. COSTO! C 
AR.P! 8UANT!PRINT STS 
2960 GOSUB 5440 
2970 IF AU > AKO) THEN 3240 
2980 F = Al(AU) 

2990 60SUB 5980 

3000 IF E2S > < " THEN IF LEFTS (Al 
S, LEN (E2S)> ) E2S THEN 3240 
3020 AU = AU ♦ 1 

3030 STS = Al*:ES = A1S:SP = 33: 60SUB 2 
OJSTS = STS ♦ '!' 

3035 ES = STRS (Gl):STS = STS ♦ ES ♦ '1 
; ■ 

3045 ES = STRS (DI):SP = 9: 60SUB 20:ST 
S = STS ♦ ES ♦ '!' 

3080 IF PR > 2 THEN 3200 

3085 ES ? STRS (C1):SP = 9: GOSUB 20:ST 

S = STS ♦ ES ♦ '!' 

3120 IF PR > 1 THEN 3200 

3122 ES = STRS (E2).‘SP = 9: GOSUB 20.’ST 

S = STS ♦ ES ♦ '!' 

3130 ES = STRS (B1):SP = 9: GOSUB 20:ST 
S = STS ♦ ES ♦ '!' 

3160 ES = STRS (HI):SP = 6: GOSUB 20:ST 
S = STS ♦ ES ♦ '!' 


La seconda parte del listato 
verrà pubblicata sul numero di 
LUGLIO AGOSTO 1984 


75 






















COMMODORE VIC-20 



Roulette russa 

Il "gioco" si chiamava inizialmente "IL CACCIATORE" in quanto era stato ideato dopo la visione 
dell'omonimo film 

Si tratta di un programma molto semplice perfettamente adattabile a qualsiasi computer. 

Non indirizza grafica in memoria e gli effetti sonori sono facilmente riproducibili da un qualsiasi computer 
dotato di sezioni audio 

Questa versione è adatta per il VIC 20 versione inespansa e si compone di due parti. Il programma princi¬ 
pale è lanciato in autostart. 

ISTRUZIONI 

Una volta lanciato il programma, il gioco vero e proprio non inizia se non si preme il tasto STOP sul regi¬ 
stratore. 

Questa è una buona abitudine da prendere se si vuol allungare la vita della meccanica del registratore: in¬ 
fatti, va ricordato che mentre si esegue un programma, anche se il nastro è fermo, in realtà il motorino con¬ 
tinua inutilmente a girare. 

Il fulcro del gioco è costituito da una istruzione GET associata alla generazione casuale di un numero inte¬ 
ro compreso tra I e 6. Il numero generato determina un salto condizionato alle routines di effetti sonori e 
grafici che identificano lo sparo o il colpo a vuoto. 

Tenuto conto del sistema di salto condizionato decretato da un numero casuale, facendo girare il pro¬ 
gramma è successo più volte che anche il sesto colpo risultasse scarico falsando quindi completamente il 
risultato del gioco. 

È stata aggiunta perciò un'altra routine di "arma scarica", piuttosto divertente per il tipo di effetto sonoro 
creato, che praticamente fa ripartire il gioco. 

Quando si incappa nel colpo carico, dopo gli effetti del caso, sullo schermo viene chiesto se si vuole rigio¬ 
care o no. 

Premendo S il programma riparte azzerando tutte le variabili; premendo N si agisce su un registro del si¬ 
stema operativo che azzera tutte le funzioni del computer come se fosse stato appena acceso. 

100 PRINT M nr : P0KE36879,59 

110 PRINTTRBC113)"S 

115 PRINT"W»ia COPYRIGHT 1983 " 

120 PRINT"tt»ia 

1 30 PR I NT " timm MASS IMO TRUSCELL I " 

135 PR I NT " M V. ST AMIRA, 70/9" 

140 PRINT"M TF.: 06 - 4244993" 

145 PRINT"M 00162 - ROMA" 

150 PRINT M MKWWM PRESS RNV KEV" 

1 55 GETXf: I F X$=""THEN 155 
160 PRINT’TX" : B=30720 •' P0KE36879, 8 
180 RERDT : IFT=999THEN1000 
190 3=T+8010 :POKES,160 :POKEB+S,3 
200 GOTO180 

300 DRTR2,3, 4,5, 6, 7,8, 11 

310 DATA12,13,14,15,16,17,24 

320 DRTR27,30,36,46,49,52,53,68 

330 DRTR71,74,80,90,91,93 

340 DRTR96,102,103,112,113,115,113,124 

350 DRTR125,134,135,137,140,146,147,156 

360 BRTR157,159,162,163,169,178,179,131 

370 DRTR134,190,191,999 

1000 PRINT" ■" : P0KE63 1, 131:P0KE632,13 : POKE198,2 : NEW 
READY. 
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COMMODORE VIC-20 


0 PRI NT " ZM " : P0KE36879, 25 
1 F'R INTTR£< 110> "PRESS 35T0P1 OH TAPE" 


IFPEEK<37137> <100THEN2 

PRINT"H": P0KE36879,59 •' F'RINT" 


MHMROULETTE RUSSA" 


4 P0KE36878,15:P0KE36877,220 : FORV*15TO0STEP-. 02 :P0KE36878,V :NEXTV 


5 P0KE36877.- 0 

6 P*P+1 :PRINT"M" 

7 FRINT" COLPO N." JP 

i H 


1 ii 


8 PRINT"I 

9 PR I NT " »»»FREMERE FV 

10 PRINT"«»»»»FER SPARARE" 

13 PRINTTAB<120)"#»" 

14 GETX$ : IFX$=""THEN14 

20 N= I NT <. RND < 1 ) #6 ) +1 

21 IFN35THEN80 

29 PRINT":M" :P0KE36879,93 
38 PRINTTABC114)'T I IT L/ I" 

31 PRI NT" IIML L IL I \ . " 

32 PRINT"»" 

33 PRINT"HWiPiiiEEI VIVO..." 

34 PRI NT "]TO>>»>B»Ì»>inSUXKXXXX\ 


itOOOC<>Cx>£X\ji" 




0 




PRINT"i»»»n 

36 PRINT"»»»»r 

37 PRI NT "«*»»-' I —— I" 

38 PRI NT"»»»» I \ / I" 

39 PRINT"»»»n \_/" 

40 P0KE36878.* 15 

41 FORL=1TO10 

42 POKE36877..200 

43 FORM*1TO10 : NEXTM 

44 POKE36877,0 

45 FORM=1TO300 : NEXTM 

46 POKE36876/200 

47 FORM*ITO10 : NEXTM 
43 P0KE36376,0 

49 FORM*1TO300:NEXTM 

50 NEXTL 

51 P0KE36873.- 0 

52 IFP*6THEN54 

53 G0T06 

54 PRINT"EH":P0KE36879,25 

55 PRINTT AB C132 >"LA PISTOLA ERA SCARICA" 

56 PRINT 

57 PRINT" DEVI RIPROVARE!" 

53 P0KE3637S,15 :FORL=1TO15 

59 FORM=200TO220+L#2 

60 P0KE36376/M : NEXTM 

61 NEXTL:P0KE36878,0 

62 POKE36876,0 

63 F ,= 0 : GOTO 1 

30 PRINT"2 »":P 0KE36879,76 

31 PRI NT" r~\ ,-\ l\ I 

82 FRI NT" I_/ / \ I \ I I _ 

83 PRINT" I 

84 PRINT" 


I" 

I" 


r 


1 I M 
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85 FRINT" 

86 PRINTrtMHSEI MORTO !•!!" 

87 FRINT 

88 pr i nt " mmatimmmm" 
ss pr i nt " umnmwmmmm' 
so print'^ììììì mmmmmmm' 

3 ì pr i nt •• mnmmwmmm " 

92 PRINrWIllllllllliMHI " 

93 PR I NT " liiiiiiiiiir»»'' 

94 pr i nt •• mtnnnmmmw' 

36 PRINT"«ÌÌMM»f«M " 

97 pr i nt " mnmwfflfflm" 


98 PRINT" 

99 FRINT" 

100 PRINT ,, W»raiÌ»nMM H 

101 PR I NT " IIIIIMIIKI1 11 

102 pr i nt " hììì»ìì nwmm n 


103 POKE36877.220 

104 FORL=15TO03TEP-1 
$ 105 P0KE36878/L 

106 F0RM=1TO30O:NEXTM 

107 NEXTL 

108 P0KE36877,0 :P0KE36878,0 

109 FORT=1T02080 :NEXT 

110 PRINT" 3 " ■ P0KE36879,59 
#111 FORTUITO1000:NEXT 

112 PRINT"i" 

113 PR I NT " MRWWWFLflV POR IN 
• (S/N)" : X$="" 

114 GETX$ : I FX$= " " THEN114 

115 IFX$="S"THENRUN6 

116 IFX$="N"THÈNSVS64802 

RERDV. 



Computer Aided Design 

Negli ultimi anni, il computer viene sempre piu spesso utilizzato come "ottimizzazione di dati" nella pro¬ 
gettazione dei piu svariati prodotti. Tale pratica, definita progettazione assistita dal computer, e piu preci¬ 
samente, dal termine anglosassone: computer aided design,- è uno dei campi di maggior applicazione del 
computer. 

Per fare un esempio, l'architetto Vallicelli per ottimizzare i profili dello scafo e delle vele di Azzurra, si è 
servito proprio di un computer. 

La stessa cosa avviene in molte case automobilistiche, che scoprono proprio col computer quali sono le 
zone meno aerodinamiche di un modello allo studio. 

Nelle stesse ditte che costruiscono impianti ad alta fedeltà, le tracce dei circuiti stampati e la disposizione 
delle componenti elettriche, vengono disegnate da un computer. 

Ancora molti esempi potrebbero esser fatti, ma, il tempo e lo spazio sono pochi, ed innanzitutto starete già 
fremendo per poter caricare questo programma sul vostro VIC e cimentarvi nella progettazione assistita 
dal computer. 

Questo programma è dedicato a tutti gli appassionati autocostruttori di alta fedeltà, ed in particolar modo 
di casse acustiche e riesce a determinare il valore ed i requisiti dei componenti elettronici adatti alla costru¬ 
zione di filtri CROSS-OVER per casse DUE vie e pendenza di attenuazione della frequenza di incrocio di 
12 dB/ottava. 
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ISTRUZIONI 

Il programma è diviso in due parti: la prima stampa la presentazione e lancia in "autorun" la seconda par¬ 
te. 

Il secondo programma richiede l'immissione dei dati, esegue tutti i calcoli e stampa i risultati. 

Il primo di essi (variabile Z) è l'impedenza della cassa; tale valore deve essere, compreso tra 3,5 Ohm e 
16 Ohm, pena, in caso contrario, la stampa di un messaggio d'errore e la ripetizione di richiesta del dato. 

Il perché di tale limitazione è sicuramente conosciuto dalla maggior parte dei lettori, ma è bene spiegarlo. 
Un amplificatore sonoro fornisce piu o meno potenza in dipendenza del valore dell'impedenza delle cas¬ 
se ad esso collegato. 

Più è bassa l'impedenza, maggiore è la potenza e viceversa. 

Al di sotto di certi valori d'impedenza, generalmente, 4, gli stadi finali dell'amplificazione subiscono una 
specie di choc che in certi casi ne può provocare la distruzione. 

Al disopra dei 16 Ohm, invece, la potenza dell'amplificazione cala cosi tanto che può provocare un ec¬ 
cessivo calo di volume, e visto che si tenderà a ruotare la manopola del volume verso il massimo, conse¬ 
guentemente si avranno inneschi ed autooscillazioni del sistema. 

Regola generale è che comunque, la maggior parte degli amplificatori in commercio, è costruita per lavo¬ 
rare con carichi compresi intorno agli 8 Onm. 

Soddisfatta tale richiesta il secondo dato da inserire è la frequenza di incrocio dei due altoparlanti (varia¬ 
bile FC). 

Subito di seguito, tra le righe 1 75 e 205 il programma provvede a calcolare il valore dei condensatori e 
delle induttanze del filtro. 

Il computer elabora i valori adatti sia al collegamento delle cellule in serie, che a quello in parallelo. 
Successivamente si indicherà con una istruzione GET, contenuta alla riga 230, a quale tipo di collegamen¬ 
to si è interessati. Termina qui, con la stampa dei valori adatti al collegamento elettrico richiesto, e, pre¬ 
mendo un tasto, lo schema elettrico stesso, la prima parte del programma. 

Attenzione, nella riga 235 il POKE 36869, 242 abilita il set minuscolo di caratteri disponibili sul VIC, ecco 
spiegati gli strani caratteri che si vedono alle righe: 250, 255, 260, 265, 270, 275, 800, 805, 810, 815, 
820, 825. 

Ecco comunque come ottenerli: 
premere SHIFT per ogni carattere gratico. 

250 e 800 battere C e poi ELENCO COMPONENTI 

255, 260, 805 e 810 battere H 

265, 270, 815 e 820 battere F 

275 e 825 battere PREMI UN TASTO 

Dalle righe 250 e 860 vengono stampati gli elenchi dei componenti ed i relativi schemi elettrici. Fate atten¬ 
zione a non saltare il POKE 36869, 240 contenuto nelle righe 285 e 385. 

Già fin qui il programma è interessante, ma lo è molto di più nella parte che segue. 

Premendo il tasto, come suggerito sullo schermo, si passa alla determinazione del valore della tensione di 
lavoro dei condensatori adatti alla potenza richiesta. 

(variabile V=Volt lavoro; variabile W=potenza in Watt). 

Di seguito si passa al calcolo delle dimensioni della bobina. 

Le induttanze sono avvolgimenti di filo elettrico smaltato, avvolto su supporti isolanti o addirittura in aria, a 
formare appunto delle bobine. Per avere il miglior coefficiente di induzione occorre che B e C (vedi fig.) 
siano uguali e dello stesso ordine di grandezza di A. 

Esiste una formula, detta di Wheeler, per calcolare il numero delle spire da avvolgere per ottenere una in¬ 
duttanza di dato valore L, conoscendo le dimensioni del supporto della bobina. 

Per esempio: 

Si vuole costruire una bobina del valore di 2,5 mH, cioè L=2500 Henry con supporto le cui dimensioni 
siano: 

A=3 ; B=C=2 

determinare il numero N di spire da avvolgere. 

In realtà risolvere la tormula di seguito è molto semplice se si adopera opportunamente un computer. 


M 1 Lx(6A+9B+10C) = 222 

0,315xA 2 
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Occorrono quindi 222 spire di filo per raggiungere il valore desiderato. Ma, qual'è il diametro del filo che 
dovremo utilizzare? 

Entra in gioco il fattore resistenza, che si ripercuote sul corretto funzionamento della cassa acustica e 
deH'ampìificatore. 

Ancora una volta in linea generale, il valore non deve essere maggiore di 1 Ohm ogni 30 Watt di poten¬ 
za; perché ciò avvenga, il filo usato non deve essere di diametro inferiore ad almeno 8/10 di mm. 

Con alcuni semplici calcoli, partendo da N, si ricava il diametro D del filo e il numero di spire S per ogni 
strato. 

Il programma fornisce alla fine il numero totale di spire da avvolgere, il diametro del filo da usare, il nume¬ 
ro di spire del primo strato e il valore della bobina cosi ottenuta. 

Attenzione, generalmente il valore delle bobine ottenute, si discosta leggermente dai valori introdotti, ma 
non c'è nessun problema. 

I valori delle induttanze non sono esasperatamente critici ed inoltre, le tolleranze introdotte manualmente 
nella costruzione pratica, compensano la leggera diversità riscontrata. 

Le formule usate per la determinazione dei componenti sono: 

Collegamento in serie: 




M ZxlO 3 n 1,6x IO 6 
2PxFC 2PxFCxZ 

|0 _. ZxlO 3 ^ 0 _ IO 6 

1,6x2PxFC 2PxFCxZ 

Collegamento in parallelo: 

LI e CI sono uguali ai valori ottenuti perii collegamento in serie. 

lo _ 1,6xZx IO 3 IO 6 

2PxFC 1,6 x2PxFCxZ 

In entrambi i casi la costante P è uguale a 3,14. 

Le formule usate per ricavare il diametro del filo smaltato sono: 

S=Vn Numero spire per ogni strato. 

Y=S/B Rapporto di riempimento del supporto. 

D=(( 1 /V) X 10) - 0,1 Diametro del filo. 

Per l'impostazione del programma è stato consultato il manuale di: 

Pierre Chauvigny e Marco Marinacci 

PROGETTO & COSTRUZIONE DEI DIFFUSORI ACUSTICI 

Editrice Publisuono, 1976 


5 PRINT'TH" : POKEi 
10 PRINTTREK115)' 


PRINTSPC < 5)"S 
PRINTSPC<5>"S 
PRINTSPC < 3)"S 


6879,8 

:r 
>i m 
h»i 

Hiil 
Hfcil 

HI HI 


P0KE36878,15 

’V 


P0KE368 69 ,240 


20 
30 

40 

50 PRINTSPCC5) 

60 
70 
80 
98 

100 PRINTSPCX4)"- 

110 FORT =1TO3000 : HEXT 


"a 

PRINTSPC<5>"a 
PR I NTSPC < 5 ) " ^3 WHX 
PR I NT " MRttttkCOMPUTER 
PRINT"- 


H 
H 
H 
H 
H 
HI 

RIBED DESIGN" 
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122 FRINT" 

123 FRINT" 

124 PRINT" 


120 PRINT'Tli 0OPVRIGHT 1984W" 

121 PRINT" MASSIMO TRUSCELLIW" 

VIA STAMIRA/70/9W" 

TEL.: 06/4244993M" 

00162 ROMAWW" 

125 PRINT"MBWD®Ì»»»MÌkPREMI UN TASTO" 

126 GETX$:IFX$=""THEN126 

127 PRINT"3" :FORC-0TO21 : PRINT"3 

128 PRINT"CALCOLO ELEMENTI PER 

129 FORC=0TO21SPRINT"» " ; : NEXT 

130 PR I NT " )!H_OAD I NGi " 

140 P0KE631/131^ P0KE632,13 : POKE198,2 '• NEW 
READV. 


"; :NEXT 

FILTRI CROSS-OVER 


12 HB/OTTAVA - 2 VIE 


140 PRINT" n.":P0KE36879,8 :P0KE36878,15 
145 FORC=0TO21 : PRINT" Si ";:NEXT 
150 FRINT"3 SPECIFICHE 
160 P0KE36876,0:1NPUT"MIMPEBEN2A< OHM >"; 2 

165 IF2> 160R2<3. 5THENPRINT"WSIVALORE CRITICO! !k." : PQKE36876,240 : FORT*1TO50 : NEXT : GO 
TO160 


wxm' 


168 POKE36878/0 

170 I NPUT " :«FREQ. TAGL 10 < H2 > " ; FC 
175 K= 1.6 : P=2#it : IJ= 1013 : M= 10 T6 
180 L1 = <<Z#U>AP*FC>> 

185 L2 S < < Z#U) / < K#P#FC > > 

190 L3= < < K#Z#U > / < P#FC)> 

195 Cl = «r.<K#MV<P*FC#Z>) 

200 C2=<<M)AP*FC*2>> 

205 C3=< <MV<K#P#FC#Z)) 

210 PR I NT "XOLLEGAMENTO CELLULE 
215 PRINT"M«aai^ SERIE® 1 ' 

220 PRINT"3132^ PARALLELO»" 

225 PRINT"MRPREMI IL TASTO SCELTA" 

230 GETXS: IFX$=""THEN230 

235 X=VfìL<X$>:PRINT'TT :P0KE36869,242 

240 ONXGOTO250/800 

250 PRINT"-€LLIJLE IN SERIE 

255 PR I NT " WSWL1 = " L1 " M IENRVM" 

260 PRINT"L2="L2" M IENRVW" 

265 PRINT"-1 = "C1" IJ-HRADW" 

PRINT"“2="C2" U-ARADMHPIW" 

PRINT""1— — V. ,/ Ittir 
GETX$:IFX$=""THEN280 
285 P0KE36869,240-PRINT'TV 
290 PRINTSPCC 13> 'S /' 


FILTRO" 


~l~/~ r -tvtvvi 


270 

275 

280 


295 

PRINT" 

+ -1 — 

— 1 1-1 

296 

PRINT" 

1 

s •% | " 

297 

PRINT" 

n 

C2 1/1 " 

298 

PRINT" 

L2 1 1 

1 1 " 

299 

PRINT" 

u 

TW l\l " 

300 

PRINT" 

1 

1" 

305 

PRINT" 

h- 

-1 

310 

PRINT" 

1 

1 /I 

315 

PRINT" 

1 

n/ i 

320 

PRINT" 


11 i 

325 

PRINT" 

CI rr-, 

Ll\ 1 

326 

PRINT" 

1 

WO 1 M 

327 

PRINT" 

1 

1" 

328 

PRINT" 

1 

_ 1" 

329 

PRINT" 

i — 

-L_J- 1 " 

330 

PRINT: 

PRINT" 

LI 
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335 PRINT"WWW PREMI UN TRSTO" 
340 GETX* ■ IFX$=""THEN340 
350 GOTO1000 

800 PRINT"-ELLULE IN PRRfiLLELO 
805 PRINT")TO®flLl = "Ll " M IENRV3B" 
810 PRINT"L2="L3" M IENRYM" 

815 PRINT"“1="C1" U-ARADM" 

820 PRINT"“2="C3" U-RRRDMWWW" 
825 PRINT"“L- - V. I ttl T" 

830 GETX*:IFX$=""THENS30 
835 P0KE36869,240 :PRINT" TX" 

840 PRINTSPC<10)"_" 

841 PRINT" + -r- 

I 

C2 m. 


~L~S-T -TVTWI 


n 

LI 11 


L2 I I " 

I I /I 

i n/ i 

11 i 
LI \ I 
l/l I I \J 


I 


m I 

I I" 
IC1 I" 
I I" 

_i_i " 


842 PRINT" 

843 PRINT" 

844 PRINT" 

845 PRINT" 

846 PRINT" 

847 PRINT" 

848 PRINT" 

849 PRINT" 

850 PRINT" U IM m I WO" 

851 PRINT" I I 

852 PRINT" I ITW 

853 PRINT" I I 

854 PRINT" - 1 - 1 — 

855 PRINT "WWW PREMI UN TRSTO" 

860 GETX$ : IFX$=""THEN860 
1000 PRINT"73" 

1010 PRINT"WRWPOTENZR MAX SISTEMO" 

1015 INPUT"<WRTTS)";W 
1020 VL=2*<SQR<W#Z>> 

1030 PRINT"WWWTENSIONE DI LAVORO 
1035 PR I NT " W L=" VL "VQLTW" 

1038 GETX$ : IFX$=""THEN1038 

1039 PRINT"SBOBINA»" 

1040 PRINT"DIMENSIONI SUPPORTO»" 

1041 PRINT"«»ÌÌ*-C-X" 

1043 PRINT "«•••■ m*m I— X" 

1044 PRINT"!»»»»■ 

1045 PRINT"«t<—I ì 

1046 PRINT "IH I I 

1047 PRINT "«IR I 

1048 PRINT"«Il 3 

1049 PRINT"«IX— I 

1050 PRINT"«M»ia 

1051 FORT= 1T05 : PR I NT " «IMI «il I" : NEXTT 

1055 PRINT"3WWWWWWW«ÌÌÌ»ÌÌÌÌÌÌÌÌI IN CMWWW" ; 

1056 INPUT"imm";fl 

1057 INPUT "*»ÌÌÌÌÌÌÌÌÌÌÌMIB";B 

1058 PR I NT " «ÌMÌÌÌÌÌÌÌMÌI>B " C=B 

1059 INPUT"WWWHWRLORE L<MILLIHENRY)";L 

1060 L=L*1000 

1061 H=<L*';<6*fl)+<9*B>+a0*C>>) 

1062 F= < 0.315# < R t2 >) 

1065 N=INT<SQR< <HVF>) 

1070 PR I NT " TIWWtìSWSPEC IFI OHE BOB INA" 

1075 PRINT"«DIMENSIONI IN CM" 

1080 PRINT"W"R" - "B" - "C"W" 

1090 PRINT "NUMERO SPIRE="N 


CONDENSATORI" 

«PREMI UN TRSTO" 
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1092 L=0 

1093 L=< <.315#AT2#NT2)/<6*A+9#B+10#C)> 
1095 PRINT" «VALORE BOBINfl="LX1000 
2010 3=S0R<N) : V=<S/B) : D=(<1/V)#10>-. 1 

2015 PRINT" MDIRMETRO DEL FILO" 

2016 PRINT"WD="D" Mfl" 

2013 PRINT"OPRINO STRATO" : PRINTS" SPIRE" 

2019 PRINT"«ALTRA BOBINA?<S/N>" 

2020 GETXT : IFXT=""THEN2020 

2021 IFX$="S"THENPRINT"n«" :CLR : GOTO1040 

2022 PRINT'Tl" : END 


Alta velocità 


Una gara contro il tempo. 

Dovete raggiungere la stella che si trova nell'angolo in alto sulla sinistra dello schermo, nel minor tempo 
possibile. 

Se toccate i muri, vi ritrovere al punto di partenza. Nel coso che il labirinto sia "impossibile" premere "S" 


FRINT" "; : NEXT ; PN=PN+NC 
FRINT'Va : NEXT : PN=PN+NC 


PRINTRIGHT T <. RE $.. 3 > 


90 REM ALTA VELOCITA'' 

100 RET="99999" 

110 PR I NT " 3W" • POKE650, 129 •' P0KE36879,10: PN=0 : P0KE36S73, 8 
120 NC=INT<RND<1> *5> +2•FORI = 1TONO 
130 NC=INT <RND<1> *3 > +2'FORI = 1TONC 
140 IFPN-C400THEN120 
150 P=3185 

160 CO=30720 : TI T=" 000000 ": TT=TIT ■ S0=210 
170 POKE7702+CO,1 POKE7702,42 

180 PRINT"««TEMPO" ; : PRINTRIGHTT<TIT, 3> ; : PRINT" RE 
190 POKEP+CO,5 : POKER,81 
200 GETAf 

210 30=30-20:1FS0=150THENS0=210 
220 IFA$="S"THENP0KE36874,O:P0KE36879,8•GOTO420 
230 IFATO"H " ANDATO"D"ANDATO"X "ANDATO "N" THEN320 
240 POKER,32 

250 P=P+<AT="A">-<AT="D"> 

260 P=P+ < < AT=" N" ;• *22 >- < < AT= "X" >*22 > 

270 IFP>8135THENP=8185 
280 IFP<7702THENP=3185 
290 IFP=7702THEN330 
300 IFPEEK<P > = 160THENP=8185 
310 POKEP+CO,5 : POKER,81 
320 PGKE36874,SO : GOTO180 
330 TT=TIT 

340 P0KE36879,40 :F0RZ=1T03 : F0RX=1T03 : F0RV=128T02303TEP3:P0KE36878, 5+ <X*2> : P0KE36 
873+X,V 

350 NEXTV, X, Z : P0KE36879, 3 : P0KE36874, 0 •’ P0KE36875, O P0KE36876, O 
360 PR I NT "rjiìTEriP0= " ; RIGHTT < TT, 3 > 

370 I FRET<=TTTHENPRI NT "MI GL I OR TEMPO* " : PR I NTR I GHTT < RET, 3 > 

380 I FRET>T TTHENPR I NT ' VSIL TUO TEMPO E-'IL MIGLIORE" RET=TT 

390 PRINT = PRINT" *JN'ALTRA PARTITA?" 

400 GETAT ; IFATO"S" ANDATO"N" THEN40U 

410 IFAT="N"THENPRINT"^ALLORA CIAO!":P0KE658,0■END 

420 PR I NT " «ATTENDEREI* " ; FOR I = 1TO3000 • NEXT : GOTO 110 

READV. 


COMANDI 

w=alto 
x=basso 
d=destra 
a=sinistra 
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Strike Ball 


Ancora codici segreti da indovinare! 

Questa volta una simpatica versione peri possessori dello Spectrum. 



1 REM 


l.5 


***************** 

* STRIKE 2, BOLL * 
***************** 
BORDER 6. PRPER 6. INK 


0: C 


3 

4- 

7 


GO SUB 3000 
PAUSE 4-00 CLS 
PRINT '“CONOSCE LE 
DI QUESTO GIOCO? (y/n) 
.INE h$ 


REGOLE" 

: INPUT 


8 

IF hl = "ri " OR h$ = "N" THEN Ci. 

S : GO TO 

i 2000 

9 

FLASH 0: CLS 

10 

DIM 

k % 143 

15 

LET 

Jh =0 

20 

LET 

i =0 

30 

LET 

a * = " 01234-56789" 

4-0 

FOR 

X- 1 TO 4- 

50 

LET 

x =LEN a % 

60 

LET 

D = INT (RND+X+1) 

70 

LET 

b$=a$ ( l TO n-1) fa$(n+l 

ro ) 



80 

LET 

X =i +1 

90 

LET 

K$(i > =a$ (nJ 

100 

LET 

a* = b* 

110 

NEXT 


150 

LET 

l =0 

160 

LET 

Jh =Jh +1 

200 

INPUT "IL SUO NUMERO? "j LZ 

NE C* 


210 

IF LEN C*<>4- THEN GO TO 203 


220 PRINT jh;TRB S;C*, 

250 FOR X = 1 TO 4- 
260 FOR y =1 TO 4- 

265 IF X =y AND X$(X) =C$iyJ 
GO TO 260 

266 GO TO 271 
266 LET 1=1+1 
269 PRINT "X"; 


THEN 



270 IF l =4- TMEN GO TO 1000 

271 NEXT y 

272 NEXT X 

273 FOR X=1 
274- FOR y =1 

280 IF x <>y 
N PRINT "o"; 

281 NEXT y 

282 NEXT X 

283 FOR X =1 TO 4- 
284- FOR y =1 TO 4- 
290 IF k$(X) <>c$(yi 


TO 4- 
TO 4- 

«NO *$<X *=<*<*> 


THE 


THEN PRINT 


PRINT '"FINE DEL 


300 NEXT y 
310 NEXT x 
315 PRINT 
320 GO TO 150 
1000 PRINT 
1010 PRUSE 50: 

GIOCO" 

1020 PRUSE 100: CLS 

1030 IF Jh<5 THEN PRINT "COMPLIM 

ENTI?.Hfl INDOUINRTO IL NUMERO 

IN SOLI "; Jh ; " TENTRTIUI ? ?.RI 

PRODI,PERO'?.SONO CONVINTO .... C 

HE E'STRTR SOLOFORTUNfl! ! .RLLOR 

R?" 

104-0 IF Jh>=6 AND Jh < 10 THEN PRI 

NT "NON C ' E ' MALE! !.HR INDOUI. J 

RTO IN Jh;" TENTRTIUI" 

1050 IF Jh > =10 AND Jh<20 TMEN PR 
INT "SIAMO ABBASTANZA SCADENTI.. 

.CI SONO DOLUTI BEN ";Jh;" TEN 

T ATIDI! " 

1060 IF Jh > =20 THEN PRINT "SONO 
LIETO DI COMUNICARLE CHE ILSUO R 
ECORD NEGATIVO SARA'RIPORTATO NE 
L GUINESS DEI PRIMATI" 

1100 PRINT 


Q'd 















S ili igaa aspi 

::: :m:t. ::> 
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1110 PRINT "VUOLE GIOCrtfiE RNCORft 
(y /n .» *' 

1115 INPUT LINE b$ 

1 120 IP b$="y" OR b» = *'Y" THEN CL 
5 : GO TO 10 

1130 CL 5 : PRINT RT 10,4; "O-K! A 

lLA ROS5IMR VOLTA! ** 

114-0 PRINT PT 0,0, " 

114-0 

" DEVO DIRE CHE LEI E 
POCHI R NON CONOSCE 


GO TO 
PRINT 
DEI 


IO GENERERÒ'NELLA M 
UN NUMERO DI 4 CIFR 
DIFFERENTI TRA LORO 
NON LE FflRO'VED 


1150 
2010 
' UNO 
RLE ! ** 

2020 PRINT 
IR MEMORIA 
E TUTTE 

. LOGICAMENTE 

EPE * ■■ ' ' 

2030 PRINT - DOVRÀ' LEI INDOVINA 
RLE CON IL MINOR NUMERO POSSIB 

ILE DI TEN- T RTIVI. "' 

204-0 PRINT -SE VERRÀ INDOVINATA 
LA POSIZIONEDI UNA CIFRA IO 5EGN 
ERO 'UNA < X > 5E INVECE AVRETE IND 
□VINATO LA CIFRA,MA NON LA POSI 

ZIONE IO SEGNERÒ'UNA <0>! . 

2050 PRINT " CAPITO'? (y/n) “ 

2050 INPUT LINE h$ 

2070 IF h$ = "y *' THEN GO TO 9 

2080 IF h* = "n" THEN GO TO 2100 

2090 IF 
GO TO 2060 
2100 C-LS 
2105 PRINT 
2110 PRINT 
EOCCUPR?”'' 

2150 PRINT 
O '* ' ' 

2160 PRINT 
ZZ AT0=3571" 

2170 PRINT 
ECE =4-170" 


OSSERVI BENE •"' 

NEL SUO NUMERO CI 3 
CIFRE DEL MIO : 7 E 

IL 7 E'NELLA GIUSTA 
E IO SEGNERÒ UNA X" 
L'1 E'UNA CIFRA DEL 
MA NON CORRISPONDE 
ONE ; IO SEGNERÒ' UN 

LEI VEDRA'DUNOUE SU 
' " 4-170" , **XO " 

CAPITO? i y/n) " 


THEN GO TO 9 


LEI E UNA CO 


y " 

OR h * < > 

"n " 

THEN 

LO 

SA CHE 

LEI 

MI PR 

LE 

FACCIO 

UN 

ESEMPI 

NUMERO DA 

ME 

MEMORI 

IL 

SUO NUMERO 

E INV 


2190 PRINT 
2200 PRINT 
ONO DUE 

1" 

2210 PRINT 
POSIZIONE 
2220 PRINT 
MIO NUMERO 
LA POSIZIO¬ 
NI o" 

2230 PRINT 
LLO SCHERMO 
2235 PRINT 
224-0 PRINT 
2250 INPUT h$ 

2260 IF hJ="y" 

2270 CL S 

2280 PRINT AT 4,1;" 

SA IMPOSSIBILE ! • " ' ' 

2290 PRINT " MI DISPIACE,GIOCHI 
CON UN PAL- LOTT OLIERE,CHISSÀ' , 

FORSE LE E' PIU ' ADATTO .* ». IO 

LA SALUTO,NON HO TEMPO DA PER 

DERE ! " 

2300 PAUSE 4-00 

2310 BORDER 0: PAPER 0: INK 0. C 
LS 

2320 PRINT INK 7;AT 10,10,"CidO! 

2330 GO TO 2320 
3000 FLASH 1 
3005 PRINT 
****" 

3010 PRINT 
ALL * *” 

3020 PRINT AT 
****»" 

3025 FLASH 
3030 PRINT AT 
© 1983" 

304-0 RETURN 


AT 

9,B, " 

************* 

AT 

10,6; 

"**STRIKE 4. B 

AT 

11,6, 

************** 

0 

AT 

18,5; 

”by IVO NARDI 


Equazioni simultanee 

Questo programma risolve contemporaneamente due equazioni del tipo Ax+By+C=0. Le soluzioniX 
e Y rappresentano le coordinate del punto di incontro delle due rette. Sullo schermo vedrete il grafico cor¬ 
rispondente a ciascuna retta, il punto di intersezione, il quadrante di appartenenza. 



3 0 RE M 
20 REM 
3 0 REM 
4-0 REM 
60 REM 
60 REM 
70 REM 
80 REM 
90 REM ' 

100 PAPER 1: BORDER 1 


t t a 

i l 


il loro 

quddràn 


punto di incontro e 
te di appartenenza. 


INK 


160 PAUSE 
170 
160 
LA SM 
190 


110 PLUT 0 
265,0. DRAV 
PLOT 3,3. 

0 DRAU 0,- 
! 20 OVER 1 
r o 9 f * in a ri 
gamtnu due 


1 * 

& u 
e t 
i 


n a 
c o 


,0- CRAU 0,175: DRAU 
0,-175: DRAP -255,0: 
DRAU 0,169: DRAU 24-9, 
169 DRAU -249,0 

■ PRINi ” ©vesto p 
solve cor,- leuporan 
equazioni *:ei tipo 

i£lHK3 amBW 

30 PRINT -" IEOUAZIONE DEL 

RE n h) Le so lo/ j oni X,Y r 

presentano le coordinate del 
nto di in- contro delie due r 
te." 

40 PRINT “ Introdotta ì VàlOf 
dea eoe t- fa cj en ti A,6,C dell 
due equa- noni , vedrete diseg 
lo sullo s cbeniio il grafico 

rrispcn- dente a ciascuna re 


0 OVER 
Rt m e q u a z i o n j 
EURDER 7 INK 
0 INVERI* E 0: 
PRINT AT 0,5, 
UAZ ION r S IMl'LTANSE " 
200 PRINT AT 2,0; 

E 1; "a lX+blY+C 1=0" 
210 PRINT AT 2,16, 
0 ; " a 2X + b2Y -f C 2 =0 " 
220 PRINT AT 4,0;" 
O 2 = ’ " , Hi 
;AT 6 , 0 , 

230 DIM 
a i r a y 
240 DIM 


0 

s i ut u i lanet 
1: PAPER 7: F 
CL5 

INVERSE 1,"E© 
INK 2, INVERS 


PAPER 6; INK 

a 1=";AT 4,16; 
5,0,”bl=",AT 5,16;"52=" 
c1=";AT 6,16;"c2=" 

REM 


C 16.' 


coefficiente 


250 

260 

270 

260 

290 

300 


DIM 

DTM 

REM 

REM 


S $ I 7 > 

X$ (7) 

7*17 ! 

inserire prima equazion 


Fùft 1=1 TO 3 

PRINT AT 1+3,3; FLASH 1, 


FLASH 0, INK 2; INVERSE 1 
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310 INPUT LINE 3*. LET C(I)=y«L 

S$ 

320 PRINT RT 1+3,3;” 

«T 1+3,4, RBS CCI'J 
330 IP SGN C(I)=-1 THEN PRINT R 
T 1+3,3; 

340 NEXT I 
REM 

REM inserire seconda equazi 


350 

360 

one 

370 

380 




FDP 1-4 TO 6 
PRINT flr 1,19, FLR5H 1, 
FLR5M 0. PRPcR 6; ** 

390 INPUT LINE SS- LET C(I)=DRL 

3 % 

400 PRINT RT 1,19;" 

",RT I,20,RBS C( I ) 

410 IP SGN CCI)=-1 THEN PRINT R 
T I,19. 

420 NEXT I 
430 REM 

440 REM fisoluiione 
450 PRINT RT 7,0; 

460 LET D=Ci2)»C(4)-C»l)»C<5) 
470 IF D=0 THEN PRINT RT 10,7; 
INVERSE 0;" ", FLRSH 1;"NESSUN» 
SOLUZIONE”: PRUSE 300: GO TO 180 
480 LET R =CO(33 *CCSI-C (2J *C (Si) 
xD 

490 LET X$=STR$ R: LET R=VRL X* 
500 LET B=(Cil) *C ( 6 ) —C (3) *C(4) ) 

XD 

510 LET Y % =STR$ B; LET B=URL Y* 
S20 PRINT INVERSE 1;"SOLUZIONI" 
, INVERSE 0,” X = ” ; X $ ; ” Y= ";Y* 

r f r r-i 

74 0 
550 
X =72 
” RT 


klm r un assi 
IF H>=0 RND B >=0 
LLT O y-0 PRINT 
8,8;”Y”;RT 21,23; 


THEN LET O 
HT 21,8;"O 
”X” 


LET O.X 

8,8,”O 


IF R:>=0 RND 8 <0 THEN 
LET oy=111 : PRINT RT 
21,8, ”Y” ; RT 8,23, "X" 

IF H<Q> RND 8 > — 0 THEN LET OX 
LET oy -• 0 . PRINT RT 21,23;" 
21,8;"X”,RT 8,23;"Y” 

IF R<0 RND B<0 THEN LET OX= 
LET oy=111 : FRINÌ RT 8,23,” 
6,8; "X”,RT 21,23; "Y" 


R > =0> -(SGN R < 0 J 
B > =0) - l SGN 8 <0.1 
DRRU INK 0; dx*l 
DRRU INK 0,0,d 


580 
= 72 : 

” , RT 
570 
= 163 : 

O ", RT 
560 
183 
C" , RT 

590 LET dx=(6GN 
500 LET dy=(SGN 
610 PlQT ox,oy. 

11,0: PLOT OX,Oy. 
y *111 

620 GO SUB 680: REM plot linee 
630 INPUT "Ri tre eqi'òii om ? (s/n 
.1 ” ; LINE 1$ 

640 IF K S = "n" OR K $="N" THEN CL 
S GO TO 650 
650 PRINT RT 1 « 1 ■'* 

GO TO 650 

660 IF K t — "S OR K $ = ”8” THEN RU 
n 

670 GO TO 630 

680 LET rxsfiBS (55/R): LET ry=H 
85 155x8) 

69u hlM disegno prima linea 
700 PRINT RT 2,0; INK 2; OVER 1 
; FLRSH 1, " 

’10 IF C(li=0 THEN LET iXl=0; L 
ET iyl=-C(3)/Ci2): LET ix2=2*R; 
EEI iy2=iyl: GO TO 796 
720 IF C (2.1 =0 THEN LET iyl=0. L 
cf iXls-C(3J/C(l.» : lET iy2=2*B: 
LEI iX 2 =iX1 : GO TO 790 
730 LET iXl=2tR: LET iyl=-(C(3) 
+ C (11 i i X 1) ,'C (2.1 

74 0 IF dy +iy1 <0 THEN LET iyl=0. 
GO TO 760 

750 IF (RBS iy1-RBS (2*8)>>0 TH 
EN LET iy1=2*8 

760 LET 1 X 2 = 0 : LET iy2=-C(3)/C( 
2 ) 

770 IF dy*iy2<0 THEN LET iy2=0: 
GO TO 790 

780 IF (RBS iy 2 —RBS (2*B) ) >0 TH 
LN LET ìy2 =2 *B 

790 PLOT o.x+r x * i x 1, oy+ry *i y 1 



300 DRRU ( i x2-a x 1.» *rx , i i y2-i y 1) 
*ry 

810 PROSE 100 

320 PRINT RT 2,0, INK 2, XNUERS 
E 1; "a IX+ bIY+C1=0” 

630 REM 

640 REM disegno seconda linea 

350 PRINT RT 2,16, OVER 1; FLfiS 
H i; PRPER 6; INK 0, '* 

360 PLOT OVER 1, c*x + r x * ì x l, o y + r y 
* : y 1 

870 DRRU OVER 1; tiX 2-iX 1S * r X , f i 
y 2 - i y 1.1 * r y 

880 IF C (4) = 0 THEN LET i.x3=0: L 
ET iy3a-C(6) /C(5) : LET i.x4=2*R: 
LET i y4 = iy 3: GO TO OSO 

890 IF C(5)=0 THEN LET iy3=0 L 
ET ix3 =-C (6) /C 14.1 : LET iy4=2*B; 
LET i x‘1 = 1X3: GO TO 960 

900 LET ix3=2*R. LET iy3 = -(Ci6) 
+ C (4) uX3) /C (5) 

910 IF dy *iy3 <0 THEN LET ay3=0: 

GO TO 930 

920 IF l RBS iy3-RBS (2*8) )>0 TH 
EN LET iy3=2iB 

930 LET 1X4=0: LET iy4=-G(6)xC( 

6.» 

940 IF dy*iy4<0 THEN LET iy4=0: 

GO TO 960 

950 IF (RBS iy4-RBS l2*B»)>0 TH 
EN LET iy 4 =2 *B 

960 PLOT ox+ix3*rx,oy+iy3*ry 

970 DRRU (ix4-ix3)*rx,(iy4-iy3) 
*ry 

980 PRUSE 100 

990 PRINT RT 2,16; INK 0; PRPER 

8;"a2X+b2Y+c2=0" 

1000 PLOT ox+i x 1 *r.x , oy+i y i*ry 
1010 DRRU (ÌX2-ÌX1.I * r x , ( i y 2 - i y 1 ) 
*r y 

1020 RETLIRN 
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Le declinazioni latine 

LIST si dedica alla scuola. I lettori lo hanno visto fin dai primi numeri con programmi adatti. Fedeli a que¬ 
sto principio, auesta volta, vengono tirati in ballo il latino e le sue declinazioni, per dimostrare ai docenti 
che il personal computer può essere utilissimo nella didattica anche "seria" ed, agli studenti, che, grazie 
al loro fedele amico, possono trovare sempre un valido aiuto negli studi 

Il programma è stato volutamente scritto completamente nel piu tradizionale dei BASIC perché possa es¬ 
sere "tradotto" anche per apparecchi diversi dallo Spectrum, per il quale è stato realizzato; per lo ZX81, 
ad esempio, basterà eliminare solo le istruzioni di colore (border, paper, etc.) e trascrivere - ovviamente - 
tutte le variabili in maiuscole (anche perché l'd 1, le minuscole non le ha). Per altri tipi, il passo è semplice 
Sono state prese in considerazione tutte e 5 le declinazioni regolari latine, solo per non allungare troppo il 
listato,- ma i piu bravi, possono trovare sempre il posto per aggiungervi le eccezioni. In questo caso ci sia¬ 
mo limitati a considerare la differenza fra pari ed imparisillabi per la III declinazione ed a segnalare che 
per i bisillabi della IV, c'è la nota variazione del dativo ed ablativo plurali in IBUS anziché nel regolare 
UBUS. Ovviamente, è stata data ampia importanza al genere neutro 

L'abbondante uso delle variabili stringa ha consentito di accorciare il listato ed evitare di copiare molte 
volte le stesse parole. 

Le istruzioni sono contenute ad apertura di programma, per cui non ci resta che augurarvi buon lavoro di... 
dita e buon divertimento con il latinorum... 


1 REM * * * declinazioni * * * * 

2 REM *© Sergio spalletta * 

3 REM —Ro ma, v.g.valli , 47 — 

5 GO SUB 9500 

10 C.L5 : INPUT " DRHMI IL NOMIN 
ATIUO", D $ 

20 INPUT "DIGITA Lfi RADICE DEL 
NOME. ES: CARMEN, ZS . 

'• / 9 * 

30 INPUT ” DIGITA Lfl DESINENZA* 
DEL GENITI—UO (ES.:C 

RRMIN-Hai "; d % 

35 INPUT “ E ' UNA* PAROLA NE UT Ai 
A ? ",w*: IF W*(l) ="S" THEN LET 

n =1 


1. a 


D 


3. a 


•*4. 


a 

GO 


”5. a 


37 PRUSE 50: CL5 
4-0 IF d $ = "ae " THEN PRINT 
DECLINAZIONE": GO SUB 1000 
50 IF d»="i" THEN PRINT " 
ECLINRZIGNE": GO SUB 2000 

60 IF d$="i5“ THEN PRINT 
DECLINAZIONE". GO SUB 3000 
90 IF d $="u j THEN PRItfT 
DECLINAZIONE (B5 = biSi Uabi J 
SUB 4-000 

100 IF d$="ei" THEN PRINT 
DECLINAZIONE": GO SUB 5000 
510 PRINT AT 2,6, INK 2;S*I1> 
520 PRINT AT 5,0; INK 6,X*<l*;a 
$,TAE1 0;x|(2) ; b$,TAB 0.x*(3 t;c%: 
TAB 0, x $ (4-J ; e $, TAB 0, x % (5) ; f *, Tfi 
B 0. X 9 ( 6 ) ; h $ 

540 PRINT AT 13,6; INK 2;s*42> 
570 PRINT AT 16.0. INK 5,X*<1) 
j % , T AB 0; x$ (2) ; K 9 ; T AB 0,X$(3) 

; TAB 0;x$U); l$;TAB 0,x*<5> 

AB 0;x$(6);o$ 

560 LET n =0 

900 INPUT "ANCORA (S/n) ; Z 9 

910 IF Z$(1)="S" THEN GO TO IO 
920 CLS : PRINT AT 0,0, INK 7," 
@ SERGIO SPALLETTA 1964”; ATT 2,2 


3) ; i 9 
; »*; t 


INK <t ( "Declinazioni 
t ine" ; AT 6,6; INK 4-; 


30 ! 


C l a r i l 

ii 


930 PRINT RT 16.0.; INK 5; "Sparo 
di esserti stato utile ! 

940 STOP 

LET a$=nj 
LET b$=9$fd$ 

LET c$=g$+d$ 

LET e$=9$t"at" 

LET f$=n$ 

LET h$=n$ 

LET j*=g$+d* 

LET k*=g* + "a ru» " 

let i $=g$ris" 

LET i$=g$+"as" 

LET B$=g$+"ae“ 

LET O $ = g S" 

RETURN 
LET a*=ns 
LET b$=g*+d* 

LET C*=9**"0" 

LET e$=g*f"u«i" 
let f*=g*4-"e" 

IF LEN g*=LEN n* THEN LET f 


1010 
1020 
1030 
1040 
1050 
1060 
10 70 
1060 
1090 
1100 
1110 
1120 
1130 
2000 
2010 
2020 
2030 
2040 
2045 
*=91 
2050 
2060 
2070 
2060 
2090 
2100 
2 110 
2120 
2130 
2500 


LET h $ =9 $ + "O " 

LET j$=g$+"i" 

LET k$=g$4"orun" 

LET i $=g$ + "x S" 

LET L$=g$f"OS" 

LET » % = 9 $ + “i " 

LET o$=g$+"is" _ 

THEN GO SUB 2600 


IF n = 1 

RETURN . .. 

LET f *=T>%: LET J*=9*V"a : L 

ET lj=g* + "a": LET »*=9*^-"a": «ET 

URN 

3000 LET a$=nj 
3010 LET b*=g*+d* 

3020 LET C$=9*+"i" 

3030 LET e$=g*rair 
3640 LET f$=n$ 

3050 LET h$=9$+"£" 

3060 LET j$=9$+"es" 

3070 LET k*=git“u«" 

3060 LET iÌ=g*+"ibU£" 

3090 LET i$=g$+"es” 

3100 let »$ = g*r‘es“ 

3110 LET 0 $=g$+"ibUà" 

3120 IF n =1 THEN GO SUB 3600 
3130 


IF n$og*4-(l* THEN PRINT 


I» 
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SINCLAIR ZX-SPECTRUM 16K 


ss: ::: 

a H? •«:::• 

::: ::: su 

ss:... sss ....ss: su 
susu su unir ss: 


Parisi Lia do" 

314-0 IF n$=g$td$ THEN PRINT 
lisi labo": GO SUB 3500 
3150 RETURN 

3500 LET K *=9 i U» " : RETURN 
3600 LET e $=n $ : LET 
ET l$=g|+ ,, a“: LET »$ = o$a-"a": 
URN 

4-000 let a$=n$ 

4-010 LET b$=n $ 

4020 LET :$ = g$f"ui ” 

4-030 LET e$=g$f"UK“ 

404.0 LET f$=n$ 

4050 LET h*=9$4-"u" 

4060 LET J*=n$ 

4070 LET k $*9 % t"uu#" 

4080 LET i$>9$f"ibUS 
4090 LET l$=n* 

4100 LET ®$=n* 

4110 LET 0 $=gif"ibUS 
4120 IF n =1 THEN GO 


Par 


‘ : L 

RET 


LET 

LET 

LET 

LET 

LET 


$e"erO® 
i $ = g$<-”ebus 
l $=n $ 

»t=n$ 

o$=g$+"ebus' 


I B5:ubus)" 


( B5: U bU 
SUB 4500 


4130 RETURN 
4500 LET b* = g$f"us‘': LET C *=n 
LET e*=n*: LET f*=n*: LET h** 
4510 LET J * = 9 * *-"ua “ : LET k «>9 
UU®": LET it = g$ribus": LET l 
$ + "Ua": LET ®*=g*+“U4": LET o 
$ i bus " 

4520 RETURN 
5000 LET a$=n* 

5010 LET b$=9$+df 
5020 LET C$=g$fd$ 

5030 LET C*= 9 *+d* 

5040 LET 

5050 LET f% =n % 

5060 LET h$=g$v"e , ‘ 

5070 LET J$=n* 


S 7 


*: 
n * 

•■g 


5080 
5090 
5100 
5110 
5120 

5130 RETURN 
9500 BORDER 1: PRPER 0: 1NK *7: C 

LS 

9505 PRINT RT 0,0;" LE DCCLINft 

2 IONI REGOLARI ..© S4T9 

io spalletta -";RT 5,0;"OOGL 

I O RIUTRR TI R DECLINARE I NOHX 

laaaagHB latini" 

9510 PRINT .E * SUFFICIENTE TU 

RISPONDA BENE ALLE MIE DOMANDE 
ED IO FARO' IL RESTO." 

9520 PRINT .RICORDA CHE Lfi RPl 

D ICE E' CIO' CHE RESTR DEL 
EfrlEffM DOPO AUE RE TOLTO LA DE5IN 

9540"PAUSE 700: CLS 
9600 DIM X $( 6 , 11) 

9610 LET X $ (1) ="Nominativo 
9620 LET X$( 2 )="GenitiVO 
9630 LET x %(3) s"DatiVO 
9640 LET X $ (4) s"RcCUSat 1 VO 
9650 LET X * (5) ="UOCatiVO 
9660 LET x$ (6) «"AbUliVO 
9700 DIH S$(2,16) 

9710 LET S*(l) ss"*** SINGOLARE *- *- 


9720 LET 
*" 

9750 LET n-0 

9300 RETURN 

9999 SAUE "dectin." 


PLURALE 


* * 



1.a DECLINAZIONE 

*** SINGOLARE ** 



Nominativo 

rosa 


Genitivo 

ro s ae 


Da tivo 

rosae 


Accusativo 

rosa® 


Uo ca tivo 

rosa 


Rb ta tivo 

rosa 


* # # 

PLURALE 


No mnativo 

rosae 


Ge nit ì v 0 

rosa ru® 


Da tiv 0 

r 0 s i s 


Accusativo 

ros as 


Uo ca tivo 

rosae 


Rb l a tivo 

ros ì s 


* * * 


Non» i na 11 vo 
Ge ni t i v o 
Dativo 
Accusativo 
Uo c a t i v o 
Ab lativo 


PLURALE 


pue r a 
pueru# 
pueribus 
pue r a 
pue r a 
pueribus 


** 


e e 


2.a DECLINAZIONE 

*** SINGOLARE 






3.a DECLINAZIONE 
Imparisiliabo 

*** SINGOLARE 


Nominativo puer 
Genitivo pueris 
Dativo pueri 

Accusativo puer 
Uocativo puer 

Ablativo puere 


* e 


Nomina tivo 

lupus 

Genitiv 0 

lupi 

Da t ivo 

lupo 

«Accusativo 

lupus 

Uo cativo 

lupe 

Ablativo 

lupo 

* * * 

PLURRLE 

Nomin a tivo 

lup i 

Genitivo 

lupo ru® 

Dativo 

lupis 

Re cusa 1 1 vo 

lupus 

Uo ca tivo 

lupi 

Ablativo 

lupis 


»* 
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SINCLAIR ZX-81 



Software shop 


Che ne direste di provare ad essere per un po ' il proprietario di un negozio ... di software?? 

Ecco dunque una buona occasione per misurare e dimostrare le vostre capacità. 

Potete giocare da soli, o ancora meglio, in piu persone. 

Il programma mostra come abitualmente viene gestito 

All'inizio di ogni mese viene visualizzata la somma presente in Cassa e lo stock di merce rimasto invendu¬ 
to. 

Dovete decidere quanto investire in pubblicità, in acquisto di nuovi stock, il nuovo prezzo di vendita da 
applicare. 

Alla fine di ogni mese viene presentata la situazione: 

1) vendite - valore dello stock e prezzo 

2) valore dello stock rimanente 

3) casse 

Le tasse si pagano nel mese di Gennaio in base ai profitti dell'anno precedente. Se sarete insolventi vi 
verrà dichiarata bancarotta. Morale: siete fuori dal gioco. 

Tutto il programma, infine, è strutturato in modo tale da considerare per le vendite piu profiquo il perìodo 
natalizio, piu calmo quello estivo. 

Un consiglio.... cercate sempre di bilanciare vecchio e nuovo stock. 
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SINCLAIR ZX-81 


in mi»: ; sititi \| 
m ::: 

::: *ntm s:s 
::: m 

;;s mrir «» 


IF OR(X,a) THEN LJET C«R(X, 


90 REM SOFT 
100 PRINT RT 5,4; “1 
110 Q05UB 5000 
1000 POR X*1 TO N 
1010 CLS 
1020 PRINT N*(X) 

1030 IF M*0 THEN GOTO 
1100 PRINT RT 2.. 0; “| 

M ;M*(M) ;RT 2 , 23;Y 
1110 LET F«R (X, 1) ♦R (X,9> f«(X,3) ♦ 
R (X , 5) 

1120 LET B*INT ((3+RNO) 

/ (R ( X , 4 ) #*3) 1 

1130 LET C«INT (Bt(lfRNO)*.5) 
1140 IF B>R(X,3> THEN LET B>R(X, 

3) 

1150 
2 ) 

1160 LET R(X,2) *R (X,2) —C 4-R IX , 3) — 
B 

1170 LET R<X,3)=® 

1180 LET D«INT ( lB+C) *R(X,4) ) 
1190 LET R(X,l)«ft(X,l) +D 
1200 LET T-lRlX,li +FHX,2> -F) ».3 
1210 PRINT RT 4.0; B 4-C ; “ STOCK UEN 
DUTO R“;TRB 24; D 

1220 IF M > 1 OR V ■ 1902 THEN GOTTO 
1540 

.LP-3R.. TP. R.(.X..6.» 1 ». . XHFN -ROTO 

1500 

1300 PRINT RT 5,0; 

; TRB 24; R IX, 6l 

1310 PRINT RT 7,0,"HRI SOLO “;TR 
B 24; R (X, 1) 

1320 print RT «^0; “99HBHIB 
1330 PRINT "SEI FUORI DRL GIOCO. 
CIRO" 

1340 IF N»1 THEN STOP 
1400 IF X»N THEN GOTO 1470 
1410 POR B=X TO N-l 
1420 POR C«1 TO 6 

)*R(Bfl,C) 


1430 LET RUftyF: 
1440 NfrXT^^ 


1450 LET N$ ( B ) «N$ (B +1> 

1450 NEXT B 
1470 LET N»N-1 
1460 LET X*X-1 
1490 GOTO 1999 

1500 IF R(X,6) <0 THEN LET R<X,S> 
«0 

1510 PRINT RT 5,0; "TRSSR PRORfTR; 
** ; T RB 24; INT R(X,6) 

1520 LET R(X,1)»R(X,1»-INT R(X,6 
) 

1530 LET R(X,6)*0 

1540 LET R(X,6)*fì(X,6)+T 

1600 PRINT RT 7,0;"ORR HRI;TRB 

isìJJHÌHB";trb 24 ; r (x , i> ;tr«i ib 
; "HMflpTi RB 24 ; R ( x , 2 ) 

1610 IF R ( X , 6 ) >0 THEN PRINT RT 1 
0,0,"TRSSR DOUUTR PRQX.GENNRIO;" 
; T RB 24; INT R(X,6) 

1620 LET U«M+1 
1630 LET U-V 

1640 IF U < 13 THEN GOTTO 1570 
1650 LET U-l 
1660 LET U*U«-1 

1670 PRINT RT 13,0;"DECISIONI PE 

R " ; Mi 


1700 




RT 13,$3;U 

RT 15>0;"OURNTO VUOI 


SPENDERETfW 9;"IN PUBBLICITÀ? 


1710 INPUT I 
1720 LET I*INT I 

1730 IF I<0 OR I>R(X,1) THEN GOT 
O 1710 

1740 LET R(X,5)=I 

1750 LET R(X,1)=RCX,1»-I 

1760 PRINT RT 16.24;I 

1770 PRINT RT 17,15;"STOCK?" 

1780 INPUT I 
1790 LET I*INT I 

1800 IF 1<0 OR 2 >RIX,1) THEN GOT 
O 1780 

1810 LET R(X,3)=I 

1820 LET R (X , 1) =R (X , 1) -I 


1330 

1840 

I 

1850 

1860 

1870 

1880 

1900 


PRINT 

PRINT 


RT 17,24;1 

"MRRCRRE(PREZZOSCOSTO 


INPUT I 

IF I<0 THEN GOTO 1850 
LET R ( X,4) =1 
PRINT RT 18,24;I 
PRINT RT 21,0;"UUOI CRMBXRR 
E 0URLC05R?" 

1910 INPUT 15 

1920 IF (If+Z*)(1>="N" THEN GOTO 
1999 

1930 FOR I*15 TO 21 
PRINT RT 1,0,Z* 

NEXT I 

LET R (X, 1) =R (X, lì «-R (X,5Ì +R ( 


1940 
1950 
1960 
X , 3) 
1970 

1999 

2000 
2010 
2020 
2030 
2040 
2100 
2110 
2120 
2130 
2140 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5200 


GOTO 1700 
NEXT X 
LET R=0 
FOR X = 1 TO N 
LET R = R 4-R IX , A > 

NEXT X 

LET R=5QR <R/N* 

LET M =M + 1 

IF H <13 THEN GOTO 1000 
LET M=1 
LET V =Y +■ 1 
GOTO 1000 

REM INIZIRLIZZRZ IONE 
DIM 

LET M*(1)="GENNRIO" 

LET H$ ».2Ì ="FEBBRRirj- 
LET M$(3)=“MRRZO" 

LET M*(4)="RPRILE" 

LET M$(5)a"MRG6IO" 

LET M$(6)="GIUGNO” 

LET M$(7)="LUGLIO" 

LET H$I8)="RGD5TO" 

LET M«(9)="SETTEMBRE" 
LET M> (10)="OTTOBRE" 
LET M$(11)="NOUEMBRE" 
LET M$<12)="DICEMBRE" 
LET Y = 1984 
LET M*0 

Z*(32) 

15,0;"NUM.DEI 

*>*' 


DIM 

PRINT RT 
ZI (GIOCRTORI) 

5210 INPUT N 
5220 DIM N*(N,32) 

5230 DIM R(N,6) 

5240 FOR X = 1 TO N 
5250 PRINT RT 16,0;Z*;RT 
OHE NEGOZIO ";X 
5260 INPUT Nf(X) 

5270 LET R(X,1)=100 
5280 NEXT X 
5290 RETURN 


NEGO 


15,®:"N 
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FAI DA TE 



Introduzione 

Non abbiamo scoperto 
l’uovo di Colombo anche 
perché di interfacce per lo 
Spectrum ormai ne sono sta¬ 
te costruite a decine. Ma di¬ 
ciamo che ormai il joystick 
per il nostro computer è di¬ 
ventato un accessorio inso¬ 
stituibile. 

Quante volte ci è capitato 
di non trovare i tasti giusti e, 
perciò, di rinunciare a quei 
punteggi che sono li a portata 
di mano, ma diventano sem¬ 
pre più irrangiungibili. 

Abbiamo cercato di accon¬ 
tentare tutti quei lettori che 
chiedevano rubriche pratiche 
anche per altri tipi di home- 
computers, ma non per que¬ 
sto i Commodoriani devono 
spaventarsi. 

È vero che l’interfaccia è 
per lo spectrum, ma il joy¬ 
stick vero e proprio può be¬ 
nissimo essere collegato al 
vostro ‘64 o al vostro Vie 20. 

Ed ora veniamo alla descri¬ 
zione vera e propria dei circui¬ 
ti. 


Dispositivi a tre stati 

In un qualsiasi sistema a 
microprocessore le informa¬ 
zioni vengono scambiate tra i 
vari dispositivi usando lo 
stesso mezzo di comunica¬ 
zione (bus dati). Il bus non è 
nient’altro che un insieme di 
linee sulle quali si muovono 



DRIVER TRE STATI 
CON U8CITA NON 
INVERTITA 



Joystick ed interfaccia 
per lo Spectrum 


le informazioni. (Per quanto 
riguarda il bus dati, le linee 
sono otto e vanno da D0-D7). 

La logica di controllo del 
microprocessore può far col¬ 
legare al bus dati un disposi¬ 
tivo e bloccarne gli altri. Que¬ 
sto è possibile poiché i di¬ 
spositivi hanno una uscita 
THREE-STATE (a tre stati). 

Come possiamo notare 
dalla figura abbiamo, un in¬ 


II bus dati D0-D7 sarà usato 
per trasferire informazioni 
per lo Spectrum. 

Slot rimane appositamente 
vuoto per inserire il connetto¬ 
re correttamente nella porta 
di espansione dello spec¬ 
trum. 

La linea IORQ è connessa 
direttamente al pin 20 dello 
Z80A (I/O richiesta d’uscita). 
Indica che la metà bassa del 



gresso, un uscita ed un in¬ 
gresso di abilitazione (ena- 
ble). 

Quando l’abitilitazione è a 
livello logico zero e l’ingresso 
è zero l’uscita sarà zero, ad 
abilitazione zero, ingresso li¬ 
vello logico uno l’uscita sarà 
uno; con l’abilitazione e un li¬ 
vello logico uno, quaLunque 
sia l’ingresso, l’uscita risul¬ 
terà aperta (stato di alta impe¬ 
denza). 

I collegamenti utilizzati per 
la nostra interfaccia sono de¬ 
scritti in figura. 


bus indirizzi contiene un indi¬ 
rizzo valido per una operazio¬ 
ne di lettura/scrittura in I/O. 

Le linee A0-A15 formano 
un bus indirizzi a 16 bit che 
fornisce l’indirizzo anche per 
lo scambio di informazioni 
con i dispositivi di I/O oltre 
che per lo scambio di infor¬ 
mazioni con la memoria. Per 
utilizzare l’l/0 si utilizzano gli 
otto bit di indirizzo più bassi 
potendo selezionare cosi fino 
a 256 porte di ingresso o di 
uscita. In un programma 
BASIC può essere specifica¬ 
to un indirizzo di I/O a 16 bit. 
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Nello Spectrum è usata 
una semplice forma di deco¬ 
difica delle porte d’indirizzo 
di I/O. AO è usato per selezio¬ 
nare l’ULA, Al per seleziona¬ 
re la ZX printer ed A5 nel, no¬ 
stro caso, per selezionare la 
nostra interfaccia. 

Schema elettrico 

Per quanto riguarda lo 
schema elettrico dell’inter- 
faccia vera e propria non c’è 
molto da dire: con IC1 un 
7400 sfruttando tre delle 
quattro porte nand a disposi¬ 
zione abbiamo realizzato una 
funzione OR. I due segnali in 
imput sono IORQ ed A5 che 
abilitano l’ingresso di con¬ 
trollo del 74LS244 ad emette¬ 
re i dati ossia a far capire al 
microprocessore quale tasto 
del Joystick è stato premuto 
quando da programma con 
un’istruzione del tipo IN ab¬ 
biamo fatto riferimento a 
quella porta di uscita. (Per 
l’esattezza IN31). 

Lo schema elettrico dello 
JOYSTICK invece è di una 
semplicità banale: cinque in¬ 
terruttori del tipo normalmen¬ 
te aperto collegati opportuna¬ 
mente come potete vedere 
dallo schena. 

Difficoltà costruttive 

Come è diventata nostra 
consuetudine mostriamo il 
circuito stampato doppia fac¬ 
cia da realizzare. 

Una volta costruito il dise¬ 
gno contrassegnato dalla di¬ 
citura LATO COMPONENTI vi 
consiglio di utilizzarlo diretta- 
mente come piano di foratura 
ed usando una punta da tra¬ 
pano dello spessore da 0.9 
mm iniziare la foratura dello 
stampato. A proposito non di¬ 
menticate di passare un po’ 
di carta smeriglio sulle due 
superfici in modo di facilitare 
l’applicazione dei trasferibili, 


o 


1 C 1 - 7400 

-1 

ALTO 

IC 2 - 74 LS 244 

-2 

BASSO 

RI — R8 - IO K 

-3 

SINISTRA 

R9 “ 4,7 K 

-4 

destra 

1 CONNETTORE CANNON 

-6 

FUOCO 

9 PIEDINI 

-8 

COMUNE 
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purtroppo, di nuovo su tutte e 
due le facce. 

Ed oravi insegno un picco¬ 
lo trucco. 

Avete mai provato a carica¬ 
re un rapidograf 0.5 con 
dell’inchiostro per circuiti 
stampati diluito con molto al¬ 
cool? Ebbene provateci per 
disegnar le piste di collega¬ 
mento fra i pin dei circuiti in¬ 
tegrati. 

Inoltre, per non correre ri¬ 
schi ed evitare spiacevoli la¬ 
mentele dettate da cattivo 
funzionamento del prototipo, 
le saldature vanno effettuate 
su entrambe le facce dello 
stampato. 

Collaudo finale 

Muniti del solito buon te¬ 
ster e schema elettrico alla 
mano controllare passo pas¬ 
so la continuità delle piste, 
eventuali cortocircuiti e che 
tutti i collegamenti rispettino 
lo schema. 



SCHEMA ELETTRICO 
JOYSTICK 




Controllo software 

Inserendo le due righe di 
programma possiamo con¬ 
trollare l’efficienza del nostro 
lavoro: 


100 PRINT IN 31; 
200 GOTO 100 


Ora provate a chiudere l’in¬ 
terruttore del joystick: verso 
l’alto vedrete apparire il N. 8, 
verso il basso il N. 4, verso 
destra il N. 1 verso sinistra il 
N. 2; chiudendo invece l’inter¬ 
ruttore di Fire (fuoco) appa¬ 
rirà il N. 16. 

È stato utilizzato l’indirizzo 
31 per la porta d’uscita 
perché la maggior parte del 
sofware in circolazione usa 
per l’interfaccia questo indi¬ 
rizzo. 
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4.3 PRINT RT F-F,F-F; "SEMI RIHA 
STI ** ; F; CHR$ 0 

50 POR R = 1 TO 20 
60 PRINT RT Q,R,CHR* 198 
70 IF INKEY$ *"S“ THEN GOTO 158 
80 PRINT RT G,R,CHR* 0 
«0 NEXT R 
100 NEXT F 

110 PRINT RT URL "10",URL "S"i" 
HRI SEMINRTO TUTTO IL PRATO" 

120 STOP 

150 IF R(R)=URL "1" THEN GOTO U 
RL "200" 

160 PRINT RT URL "21",R;CHR» 23 
170 LET R(R)«F/F 
180 PRINT RT G , R;CHR8 0 
190 GOTO URL "100" 

200 PRINT RT URL *'21" / R;CHR$ 31 
210 LET R(R) mF-F 
220 GOTO URL "100" 


Aiutiamo il giardiniere a seminare il prato... ! 
Se son rose fioriranno!! 


ISTRUZIONI 

Per seminare usare il tasto "S" 

1 REM SEMI 

3 PRINT "PREMI N/L PER INIZIA 

RE" 

6 PRUSE URL "4E4" 

7 CLS 

10 DIM R(URL "20") 

20 PRINT RT URL "21", URL "0";" 

30 FOR F-URL "20" TO URL "1" 3 
TEP URL "-1" 

40 LET G=URL "7" 


SINCLAIR ZX-81 


— 

Fiori 
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Inserire in busta chiusa 


Spett LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 











ti apre 


un credito 


LIST non ti da un semplice abbonamento ad una 
rivista: abbonarsi è come acquistare una carta di 
credito per una gamma completa di servizi. 



più di 200 programmi a casa tua per meno 
di 150 lire l’uno 
in regalo subito una cassetta 
per registrare i tuoi 
programmi 
uno sconto del 50% 
sul costo dell’iscrizione 
al LIST CLUB 
aggiornamento costante 
sulle novità nel campo 
degli home 
blocco del prezzo di copertina per un anno 


• sconto del 20% su libri e fascicoli editi da LIST 


• l’uovo LIST ha in serbo per chi entrerà 
nel suo mondo 


MAGNIFICHE SORPRESE! 

perché non ti abboni? 
-pensaci! 
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